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METHOD AND APPARATUS FOR SCANNING 
AND MANAGING DOCUMENT IMAGES 

CROSS-REFERENCE TO RELATED APPLICATIONS 

The present application claims the benefit of 35 U.S.C. 1 1 1(b) provisional application Serial 

5 No. 60/029,425 filed October 22, 1996, and Serial No. 60/028,985, filed October 22, 1996, entitled 

Method and Apparatus for Scanning and Managing Document Images and Method and Apparatus 

for Computer Instruction Via Digitized Images. Both of these provisional applications are 

incorporated by reference, as if fully set forth herein. 

STATEMENT REGARDING FEDERALLY SPONSORED 

10 RESEARCH OR DEVELOPMENT 

Not applicable. 

BACKGROUND OF THE INVENTION 

Field of the Invention 

The present invention relates to a method and apparatus for a scanning and document 

15 management system using hardware and computer software technology. More particularly the 
present invention relates to the industry catering to users of document management systems and 
instruction of computers via digitized images. 
Description of Related Art 

The document management industry is constantly struggling with problems associated 

20 with efficient and cost-effective management of voluminous documents. The industry lacks 
cost-efficient computerized document management system capable of handling the input of a 
voluminous number of documents into a computer system. Thus one of the biggest stumbling 
blocks with the present technology is the inability to quickly and efficiently input voluminous 
number of documents into an imaging database. Current document management systems 

25 employ a complicated arrangement of user interfaces that require extensive training in order to 
adequately utilize the system. Databases with complicated user interfaces are very expensive to 
implement in an organization. This presents a cost barrier to an organization contemplating 
installation of such a system. 

Another shortcoming of the state of the art is the lack of a self-configuring database. 

30 The problem to be solved is in the design and implementation of a system that allows all 
technical functions to be handled by the program behind the scenes and keep the user interface 
as simple as possible. A simple user interface allows the performance of various different 
tasks behind the scenes by a simple click of a mouse button. Every such step that can be 
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performed behind the scenes cuts down the cost of implementation and use. For example, the 
scanning of documents into the system involves many different tasks. The economic 
advantage of such an improvement over the prior art is the ability to use low-level employees 
to run the system without the need for any specialized expensive training and knowledge. 
5 The following references are hereby incorporated by reference in their entirety: 

(1) Dan Haught & Jim Ferguson, Microsoft Jet Database E ngine Programmer's 
Guide, Microsoft Press, 1995 

(2) Michelle A. Poolet & Michael D. Reilly, Access95 Cient/Server Development . 
QUE Corporation, 1996 

10 (3) James D. Murray & William VanRyder, Encyclopedia of Graphics File 

Formats . O'Reilly & Associates, 1994 

(4) Michael Amundsen & Curtis Smith, Teach Yourself Database Programming 
with Visual Basic 4 in 21 Days. Sam's Publishing, 1996 

(5) Zane Thomas Et al, Visual Basic 4 How -To . The Waite Group Press, 1995 

15 

BRIEF SUMMARY OF THE INVENTION 
The present invention relates to a method and apparatus for a scanning and document 
management system using hardware and computer software technology. More particularly, the 
present invention relates to an efficient methodology for scanning, generating instructions to be 

20 performed by a computer based on unique images digitized into the computer, converting to 
editable and searchable text, organizing and separating in electronic storage, labeling, annotating, 
viewing, accessing, manipulating, searching and printing of documents. A document consists of 
one or more pages or sheets containing text and/or graphic symbols. The pages or sheets 
comprising a document may be derived from any source, including scanned pages and captured 

25 video. A document may be in color, in black and white or both. The invention is useful for various 
commercial applications such as for example in a law practice for case litigation support imaging 
database to keep track of a plurality of documents produced during litigation. 

The present invention comprises a scanning and document management system with a 
mechanism for generating instructions to be performed by a computer based on unique images 

30 digitized into the computer, which preferably includes a scanning device electronically coupled to 
software-enabled computer. In the preferred embodiment, the enabling software for scanning, 
converting to editable and searchable text, organizing and separating in electronic storage, labeling, 
annotating, viewing, accessing, manipulating, searching, and printing of documents is resident on 

-2- 
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the computer. However, as one skilled in the art will appreciate, the software module for 
controlling the scanning device may be loaded as part of the scanning device, or scanning device 
and computer may be loaded with portions of the software module. 

The method and apparatus for generating instructions to be performed by a computer 

5 based on unique images digitized into the computer is facilitated by a unique graphic pattern 
embodied on a physical medium, such as a sheet of paper or video tape. The image is 
electronically digitized into a computer. For example, the image on sheet of paper is digitized 
by scanning the sheet into the computer. Similarly, the image on a video tape may be digitized 
into the computer by processing the analog video signals through a commercially available 

10 hardware add-on board installed in the computer. The add-on board contains electronic 
circuitry capable of converting analog video signals to digital video signals. Commercially 
available presentation software permits viewing of the digital video on the computer monitor. 
Additionally, the software contains functionality to freeze a particular video frame to save as an 
individual digitized image. This image may contain a unique graphic pattern designed to provide 

15 one or more instructions to the computer. A special software module examines and interprets 
the digitized image and thus produces one or more computer instructions. The computer 
executes the generated instructions to produce a desired result. An example of a practical 
application of this invention is in the use of a physical document separator, containing a unique 
graphic pattern (image), to mark the beginning and end of each document in a large volume of 

20 documents scanned collectively into a computer as a single electronic file. A software module is 
used to examine and recognize the document separator images and thus produce and store a 
separate electronic file for each individual document contained in the single larger electronic file 
containing a plurality of documents. This is particularly desirable in various commercial 
applications such as in a law practice case litigation support imaging database where large 

25 volumes of documents are scanned to be electronically managed and used. 

BRIEF DESCRIPTION OF THE DRAWINGS 

A better understanding of the present invention can be obtained when the following 
30 detailed description of the preferred embodiment is considered in conjunction with the 
following drawings, in which: 

Figure 1 is a block diagram of a computer system with attached accessories according 
to the present invention; . 

-3- 
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Figure 2 is a flowchart depicting the Document Separator logic of the preferred 
embodiment of the present invention; 

Figure 3 is a screen shot showing the PC START screen; 

Figure 4 is a screen shot showing the Main Information Screen (MIS); 

Figure 5 is a screen shot of Watermark Professional Editor; 

Figure 6 shows the contents of the CDINFO.DAT file; 

Figure 7 is a screen shot of the Briefing Tool; 

Figure 8 is a screen shot of the Transcript Viewer; 

Figure 9 is a screen shot of the IS YS Query screen; 

Figure 10 is a screen shot of the ISYS Search screen; 

Figure 1 1 is a screen shot of the Word Wheel search screen; 

Figure 12 is a screen shot of the System Settings screen; 

Figure 13 is a screen shot of the Preferences screen; 

Figure 14 is a screen shot of the Report Names screen which enables running of 
reports; 

Figure 15 is a screen shot of the Report Names screen which enables naming of 
reports; 

Figure 16 is a screen shot of the Duplicates Screen; 
Figure 17 is a screen shot of the Exhibit List screen; 

Figure 18 is a screen shot of the Litigation Bates Number Label Maker screen; 
Figure 19 is a screen shot of the Litigation Document Number Label Maker screen; 
Figure 20 is a screen shot of the Tempest Image Printer screen; 
Figure 21 is a screen shot of Luke's Watermark Scan Utility screen; 
Figure 22 depicts the Document Separator of the preferred embodiment; 
Figure 23 is an example of a multi-page TIFF file; 
Figure 24 shows a page divided into sixty-four sections; 

Figure 25 shows further division of the sixty-four sections into four quadrants; 
Figure 26 is an overlay of the 64 sections and 4 quadrants on a document page; 
Figure 27 is an overlay of the 64 section and 4 quadrants on the designated Document 
Separator; 

Figure 28 shows documents separated after execution of the Document Separator 
module; 

Figure 29 is a screen shot of the Watermark Exhibit Scan Utility; and 
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Figure 30 is a screen shot of Luke's Automated OCR f ing Utility. 

DETAILED DESCRIPTION OF THE INVENTION 
According to the preferred embodiment, software for the present invention is 

5 developed using Microsoft's Visual Basic programming language in 32-bit mode. The 
software portion of the preferred embodiment uses Microsoft Jet as the database engine. 

Referring first to Figure 1, an illustrative computer system 1-100 which is programmed 
according to the present invention and which operates according to the present invention is 
shown. The computer system 1-100 generally comprises a video display system 1-110, a 

10 keyboard 1-120, and a mouse 1-130. The computer system 1-100 also preferably includes 
various standard components, including at least one central processing unit (CPU), memory, a 
hard drive, a CD-ROM drive, a floppy disk drive, one or more buses, and a power supply. 
The computer system 1-100 of the preferred embodiment, includes a 200 Mhz Pentium MMX 
CPU, 32 megabytes of random access memory (RAM), 4 gigabytes of hard disk space, a 24X 

15 CD-ROM drive, 3.5" 1.4 megabyte floppy disk drive, a 17 inch monitor with 1024x768 
resolution and a similarly equipped video card. In the preferred embodiment, the software 
program is stored on a CD-ROM disk 1-400, floppy disks 1-500 and/or hard drive of the 
computer 1-100 for execution by the CPU. The preferred embodiment of the present 
invention also includes a high-speed scanner 1-200, such as the commercially available Fujitsu 

20 scanner M3093GX, connected to the computer system 1-100. The preferred Fujitsu scanner is 
rated with a scanning speed of 27 pages per minute and is capable of 200 to 400 DPI 
resolution. Alternatively, any industry standard, i.e., TWAIN compliant, scanner with 
scanning speed of 24 to 30 pages per minute and 200 to 400 DPI resolution will satisfy the 
requirements of the preferred embodiment. The preferred embodiment uses the optional sheet 

25 feeder 1-210 of the scanner 1-200 to facilitate high speed scanning of documents into the 
system. The present invention preferably implements a document separator 1-300 placed at 
the end of each document to separately define the beginning and end of each document in a 
stack. A high-speed laser printer 1-600, also preferably is attached to the computer system 1- 
100. The preferred embodiment uses the foregoing components to practice the present 

30 invention, as described below. One skilled in the art will understand, however, that 
modifications or omissions may be made to the list of preferred components without departing 
from the principles of the present invention. 

The preferred embodiment of the present invention uses software containing various 
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programming modules. The software portion of the preferred embodiment of the present 
invention is incorporated in its entirety and attached as the Appendix. Referring now to page 
4 of the Appendix, the PC START module functions as the main menu for the database 
management system. The PC START module is an overlay program that acts as the master 
5 control program to manage a plurality of databases. In the preferred embodiment, each 
document database contains information on a lawsuit or legal case, although the present 
invention has other applications. Referring now to Figure 3, the PC START screen provides 
the user with options to perform various functions on each case database. For example, the 
user can select functions such as Load Case 3-100, Create Case 3-200, Delete Case 3-300, 

10 Repair Case 3-400 and Compress Case 3-500. Furthermore, the user can perform various 
system administration functions by selecting System Admin 3-600, produce labels by selecting 
Make Labels 3-700 or print documents by selecting Print Docs 3-800. The Current Cases list- 
box 3-900 permits the user to select which case database(s) will be impacted by selection of 
one or more of the foregoing functions. 

15 Referring now to pages 2 to 3 of the Appendix, the Load Case module enables the user 

to load the selected case 3-900 into the computer system's memory 1-100. In order to load a 
case, the case must exist in the Current Cases list-box 3-900. The Main Information Screen 
(MIS), Figure 4, is displayed upon selection of the Load Case 3-100 option from the PC 
START screen. (Figure 3). The MIS, Figure 4, contains the document image and document 

20 briefing information. Document briefing is accomplished by the entry of summary text into 
various fields on the MIS such as "To" 4-1 10, "From" 4-120, "CC's" 4-130, "Description" 4- 
140 and "Comments" 4-150. Each of the foregoing briefing fields can be searched while in the 
MIS, Figure 4, by simply double-clicking on the desired field to search. 

Case Issues 4-200 on the MIS, Figure 4, enable the user to designate special 

25 characteristics of the currently displayed document in document thumbnail 4-300. The special 
characteristics are designated by placing a checkmark in the box provided to the right of each 
Case Issue 4-200. The use of Case Issues enables a novice user to produce sophisticated 
reports without any programming on the part of the user. For example, the user can easily 
produce a report containing all documents in the case database which involve expert 

30 testimony. Pages 15 to 17 of the Appendix show the programming logic to produce the reports 
based on case issues defined and selected by the user. Case Issues 4-200 are user-defined and 
thus are not predetermined by the system. The user defines case issues relevant to a case 
database in the Preferences screen, Figure 13. Referring now to page 41 of the Appendix, the 
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Preferences screen, Figure 13, is selected by clicking on the Settings button 12-200 of the 
System Settings screen, Figure 12. In the Preferences screen, Figure 13, the user performs a 
one-time setup of chosen case issues by entering a case issue in each field of the data entry 
row 13-100. The case issues entered in the data entry row 13-100 are relationally connected 

5 to the Case Issues 4-200 on the MIS, Figure 4, the report screens, Figures 14 and 15, and all 
associated program code and tables. The Preferences screen, Figure 13, additionally permits 
the user to determine system folders 13-200 in which files related to a particular case database 
will reside on the computer system 1-100. 

Referring now to page 15 of the Appendix, the document thumbnail 4-300 will be 

10 displayed in an individual window if the user double-clicks on the document thumbnail 4-300 
using the mouse 1-130 or selects the Go To button 4-410. Any commercially available 
image-viewing program may be used to display the thumbnail document 4-300. The preferred 
embodiment of the present invention uses commercially available Watermark Professional 
Edition image viewer. While in the image viewer, Figure 5, the document display size may be 

15 changed to suit the user's needs. Furthermore, among other things, the user can print the 
document, annotate the document using text or audio annotations and highlight significant 
portions of the document. 

Referring now to page 53 of the Appendix and Figure 6, the system is capable of 
automatically determining the location of a user-requested document in a multi-volume CD- 

20 ROM document image database. This feature is facilitated by the system's ability 
automatically keep track of the location of all documents as they are scanned into the system, 
even if more than one CD-ROM is required to store the scanned document images. This 
functionality is useful in circumstances where the user's computer system has a single CD- 
ROM drive. The functionality is particularly helpful on laptop computers, which customarily 

25 have a single CD-ROM drive. 

The preferred embodiment maintains two different versions of each document in each 
case database: (1) the scanned image and (2) the full-text OCR version. The scanned image 
version is displayed in thumbnail mode 4-300 and using the image viewer program. The 
scanned image version is the more complete and accurate version of a document because it is 

30 essentially an identical image of the document as it was scanned into the system. While the 
scanned image is ideal for viewing an identical copy of the original document, the scanned 
image lacks the capability to be searched for text. The physical limitation of the scanned 
image version necessitates a full-text version of the document. The full-text version is 
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obtained though the use of optical character recognition (OCR) software to convert the 
scanned image into a text-only file (see discussion below on the OCR process). 

Referring now to pages 26 to 36 of the Appendix, the Briefing Tool, Figure 7, of the 
preferred embodiment enables the user to view the scanned image of the document thumbnail 

5 4-300 by clicking on the Brief button 4-420 on the MIS, Figure 4. The Briefing Tool, Figure 
7, differs from the image viewer, Figure 5, in that the Briefing Tool displays the document 
image at all time while it is open. It is desirable to have the functionality of an image viewer 
that remains on top of all other windows at all times because it permits the user to have both 
the MIS, Figure 4, and Briefing Tool, Figure 7, up on the monitor at the same time to facilitate 

10 efficient briefing of the document in the MIS. This functionality facilitates multiple users 
briefing the same case database at the same time without having the need to have actual 
physical document copies accessible to each briefer. Additionally, the Briefing Tool reduces 
the likelihood of lost physical document copies. As evident from the programming source 
code on page 26 of the Appendix, the Briefing Tool, Figure 7, of the preferred embodiment is 

1 5 written in TMS/Sequia OCX technology. 

Referring now to pages 13 and 69 to 83 of the Appendix, the Transcript Viewer, 
Figure 8, of the preferred embodiment is an ASCII transcript viewer. It displays an entire 
page of a deposition proceeding at a time. The Transcript Viewer is initiated by clicking on 
the Transcr button 4-440 on the MIS, Figure 4. The Transcript Viewer has the capability to 

20 automatically recognize various transcript types, such as different transcript types received 
from court reporters, and to automatically perform all necessary formatting and loading into 
the system. This feature is particularly desirable because state of the art systems lack this 
feature and thereby require significant labor to format transcripts prior to use on other state of 
the art document management systems. The Transcript Viewer has a Find Word 8-100 

25 feature, which enables the user to search transcripts for particular text strings. Another 
desirable feature of the Transcript Viewer in this preferred embodiment is the ability to use it 
in conjunction with any word processing software, such as Microsoft Word or Corel's 
WordPerfect. The combination use enables the user to highlight any selected portion of a 
transcript, then click on the Copy button 8-200 in the Transcript Viewer. The copied 

30 information can then be pasted into the word processor. Significantly, the Copy 8-200 
function accomplishes much more than the average cut and paste routine. Here, the Copy 8- 
200 function provides additional valuable information relating to the copied transcript text. 
Specifically, the Copy 8-200 function automatically generates document reference including 
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information such as the page and line number of the copied text and the name of the transcript. 
This automatic functionality facilitates faster deposition summaries and easier incorporation of 
deposition quotes in litigation pleadings. Furthermore, the Transcript Viewer allows 
condensed printing of transcripts - up to four pages of transcripts on a single physical printed 
5 page. 

Referring now to pages 14 to 15 of the Appendix, the ISYS Query screen, Figure 9, of 
the preferred embodiment enables the user to perform foil-text searches on the OCR version of 
the documents in the case database. The ISYS Query screen, Figure 9, is initiated by clicking 
on the FullText button 4-470 on the MIS, Figure 4. The preferred embodiment of the present 

10 invention uses a commercially available search engine called ISYS, produced by Odyssey 
Development Corporation, for performing the foil-text searches. The third party ISYS Search 
screen, Figure 10, is initiated by clicking on the Q button 9-100. The user enters queries in the 
query field 10-100 using search connectors 10-200 as needed. The user may choose to use the 
Word Wheel icon 10-300 to search for the number of occurrences of any given specific word. 

15 The Word Wheel Search screen, Figure 11, is initiated when the user clicks on the Word 
Wheel icon 10-300 on the ISYS Search screen, Figure 10. The user enters the specific word 
to search for in the query field 11-100 in Figure 1 1. The user must select one of the search 
methods 11-200. The self-explanatory choices are "Starts with" and "Sounds like." The 
result of the single-word Word Wheel search is displayed in the result list-box 1 1-300. 

20 Referring now to page 12 of the Appendix, the Add button 4-450 and the Delete 

button 4-460 on the MIS, Figure 4, of the preferred embodiment enable the user to perform 
standard add and delete processing of case database records. 

Referring now to pages 13 and 20 to 20 of the Appendix and pages 42 to 52 of the 
Appendix, the Reports button 4-480 on the MIS, Figure 4, enables the user to print reports as 

25 defined by the user's System Settings, Figure 12, Reports button 12-300 and Rpt Names 
button 12-400. Report Screen, Figure 15, enables the user to name reports. Report Screen, 
Figure 14, enables the user to run reports. 

Referring now to page 13 of the Appendix, the Print Scr button 4-490 on the MIS, 
Figure 4, of the preferred embodiment provides the functionality to produce an image of an 

30 index card that looks exactly like the MIS, Figure 4. 

Referring now to page 37 of the Appendix, the Duplicates button 12-500 on the 
System Settings screen, Figure 12, performs a check for duplicate records in the case 
database. The result of the duplicates check is displayed on the Duplicates Screen, Figure 16. 
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The Duplicates Screen is a grid type screen that includes an entry for every document in the 
database. The duplicates checking routine performs approximately 14 separate checks on 
document numbers. Duplicate records are grouped together based on document numbers. 
Duplicate records are highlighted and deleted by pressing the delete key. The Duplicates 
5 Screen has the added functionality of providing the database administrator the capability to 
perform mass maintenance functions on all records in the database. For example, the 
administrator can globally make changes to all data in a case database. Various reports can 
also be produced using the Duplicates Screen. The reporting capabilities found here, i.e., 
Figure 16, are separate and distinct from other reporting features of the system. All 
10 appearance changes on this screen, Figure 16, such as hiding various columns for printing 
purposes, are temporary, while all data content changes, such as global find and replace, are 
permanent. 

Referring now to page 37 of the Appendix, the Exhibit List button 12-600 on the 
System Settings screen, Figure 12, displays the Exhibit List screen, Figure 17. The Exhibit 

15 List screen, Figure 17, allows the user to modify parts of the data for use in an automatic 
exhibit list which can be printed from the Report Screens, Figures 14 and 15. 

Referring now to pages 14 to 15 of the Appendix, the preferred embodiment of the 
present invention provides the user with the option of selecting the user's choice of full-text 
search engine Figure 9. The system of the preferred embodiment is designed to automatically 

20 detect what particular component is installed on the user's computer system 1-100 and to 
automatically develop necessary links to enable use of the installed components as the user's 
full-text search engine. 

Referring now to pages 1 to 2 of the Appendix, the Create Case module permits the 
user to add a new case database. A case database must be added to the computer system 1- 

25 100 before any of the database actions listed in Figure 3 can be performed on the documents 
and the associated information which comprise a case database. A series of dialogue boxes 
step the user through the process of creating a new database. The procedure for adding a new 
case database is initiated by clicking on the Create Case button 3-200 on the PC START 
screen, Figure 3. 

30 Referring now to page 2 of the Appendix, the Delete Case module permits the user to 

delete a case database from the computer system 1-100. In order to delete a case, the case 
must exist in the Current Cases list-box 3-900 and must be selected by the user. The delete 
case function is password protected to prevent unauthorized deletion of case databases. A 
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series of dialogue boxes step the user through the process of deleting a database. The 
procedure for deleting a case database is initiated by clicking on the Delete Case button 3-300 
on the PC START screen, Figure 3. 

Referring now to pages 3 to 4 of the Appendix, the Repair Case module permits the 

5 user to perform various repair functions on a case database residing on the computer system 1- 
100. In order to repair a case, the case must exist in the Current Cases list-box 3-900 and must 
be selected by the user. The Repair Case module corrects technical problems with the case 
database such as damaged or defective files. It is critical to repair a case when a damaged or 
defective file prevents the system from functioning as intended. A series of dialogue boxes step 

10 the user through the process of repairing a database. The procedure for repairing a case 
database is initiated by clicking on the Repair Case button 3-400 on the PC START screen, 
Figure 3. 

Referring now to page 1 of the Appendix, the Compress Case module permits the user 
to perform various maintenance functions on a case database residing on the computer system 

15 1-100. In order to compress a case, the case must exist in the Current Cases list-box 3-900 
and must be selected by the user. The Compress Case module performs tasks such as 
reorganization and defragmentation of the selected case database. During the normal course 
of use, case databases are added and deleted as needed. However, the system does not 
physically delete a case database and its associated files until the case database is compressed. 

20 Thus, it is desirable to compress a case to free up storage space occupied logically deleted 
files. Compressing a case improves overall performance of the system and allows faster 
processing of information contained in the case database. A series of dialogue boxes step the 
user through the process of compressing a database. The procedure for compressing a case 
database is initiated by clicking on the Compress Case button 3-500 on the PC START screen, 

25 Figure 3. 

Referring now to page 8 and 9 of the Appendix, the Make Labels module allows the 
user to print litigation label numbers based on either the Bates numbers stamped document 
production during litigation or case database system specific Document Number. Figure 18 
demonstrates the preferred embodiment's form for Bates number based label maker and Figure 
30 19 demonstrates the preferred embodiment's form for Document number based label maker. 

Referring now to pages 5 and 84 to 87 of the Appendix, the Print Docs module enables 
the user to perform high-speed document production. The module contains functionality 
which acts as a batch print utility for delayed or scheduled printing of scanned image files on 
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the high-speed laser printer 1-600. The batch print capability of the Print Docs module is very 
useful as a cost-effective method for automated and scheduled high-speed document 
production. Referring now to Figure 20, the Tempest Image Printer screen enables the user to 
select one or more files to be printed. By simply clicking on check boxes, the system is 
5 capable of batching all files for deferred printing and production of selected documents on 
high-speed network printers. This feature eliminates costs associated with manual production 
of documents by clerks - a process that requires clerks to manually locate and copy selected 
documents for production. Current state of the art technology does not provide batch print 
capability in document management systems. Further performance enhancement may be 
10 realized by installing additional memory chips into the high-speed laser printer 1-600. The 
preferred embodiment of the present invention uses the commercially available Hewlett 
Packard 5 Si model. However, the preferred embodiment uses a 5 Si model with its standard 
memory upgraded to 32 megabytes. The upgraded 5 Si reduces the processing load on the 
computer system's 1-100 resources and effectively improves overall system performance. 
15 The present invention envisions a system whereby the batch print functionality may be easily 
expanded by one skilled in the art to enable multiple printers to simultaneously share the 
burden of printing high-volume batched documents. The accelerated print management 
produces significant time and labor savings. 

Referring now to pages 54 to 60 of the Appendix, Luke's Watermark Scan Utility 
20 module is the mechanism of the preferred embodiment of the present invention by which all 
documents that belong to a case database are scanned into the computer system 1-100. The 
documents are scanned into the computer system 1-100 using the attached high-speed scanner 
1-200. Luke's Watermark Scan Utility screen, Figure 21, is displayed when the scanning utility 
module is initiated. The scanning utility of the preferred embodiment will work with any 
25 industry standard, i.e., TWAIN compliant, scanner. However, the utility can be modified to 
work with specific high-speed scanners. For example, the scan utility of the preferred 
embodiment includes special driver software for the preferred Fujitsu high-speed scanner. 
Scanner setup is accomplished by means of clicking on the Setup button 21-100 in Figure 21. 
The scan utility automatically links the scanned image into the case database and gives it a 
30 document number and bates label number. The automatic linking and setup of the scanned 
images into the case database is highly desirable because it saves significant manual effort that 
would otherwise be required. The Scan button 21-200 initiates scanning of as many 
documents as are in the scanner's 1-200 sheet feeder 1-210. The Single button 21-300 
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initiates scanning of only a single page of a document. The Scan90 button 21-400 makes a 
90-degree orientation adjustment to a document as it is scanned into the system. This 
eliminates the need for the user to adjust the scanned image when viewing it. The Save button 
21-500 permanently stores scanner settings. The scan utility keeps a running tab of all 

5 scanned images that have not yet been processed by the OCR routine, i.e., conversion to full- 
text version of the scanned image. This is desirable because the OCR list generated by the 
scan utility is used in the OCR process without having to manually determine which scanned 
images need to be OCRed. 

Referring now to pages 94 to 98 of the Appendix, the Document Separator module is 

10 designed to facilitate efficient scanning of large volumes of documents in a continuous stream. 
Documents are typically scanned one document at a time in order to signal to the system the 
end of one document and the start of another. Scanning one document at a time is a laborious 
and time-consuming manual procedure. It is desirable to perform continuous scanning of 
documents because it eliminates the need to manually signal the end of each document 

15 (containing one or more physical pages) and the start of the next document. In the preferred 
embodiment, continuous scanning of documents is achieved by placing a physical document 
separator between each of the documents before scanning. In the preferred embodiment the 
physical document separator, Figure 22, is a physical sheet of paper that contains a 
predetermined unique image pattern. All documents are then continuously scanned and saved as 

20 one multi-page electronic file, such as a TIFF file. Figure 23 shows an example of a continuous 
stream of documents separated by the designated uniquely patterned document separator. The 
document separator module examines and processes each multi-page TIFF file to produce 
individual documents and saves each such document as a separate electronic file. The logic of 
Document Separator, as used in the preferred embodiment, is described in the flowchart in 

25 Figure 2. Specifically, the process begins by loading and displaying each scanned image on the 
computer screen. The width and height of the scanned sheet is determined and the sheet is 
divided into sixty-four (64) sections, Figure 24. The 64 sections are further divided into four 
(4) quadrants, Figure 25. Figure 26 demonstrates overlay of the 64 sections and 4 quadrants on 
a page of a document. Figure 27 demonstrates overlay of the 64 sections and 4 quadrants on a 

30 page that is the designated document separator with the predetermined unique graphic pattern. 
Thereafter, the software module takes one thousand (1000) color samples or pixel values from 
each quadrant. Each color sample is examined and compared against the predetermined unique 
graphic pattern of the designated document separator to determine whether the scanned page is 
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the designated document separator. If the scanned page does not correspond 
identically/substantially to that of the predetermined unique image, (the Document Separator 
template), the scanned page is marked as part of an ongoing document and the process is 
repeated again. However, if the page is the designated document separator, then the end of the 

5 current document is indicated and all scanned pages prior to the document separator are saved as 
a single document in a separate electronic file. Figure 28 displays the end result of the 
foregoing process for the example multi-page TIFF file shown in Figure 23. At the completion 
of the document separator routine, four documents are extracted in Figure 28 from the single 
multi-page TIFF file in Figure 23. This process is repeated until all documents have been 

10 separated in a similar manner. The utility of the present invention lies in part in time savings 
realized through continuous scanning of large volumes of plurality of documents using a high- 
speed scanner. 

Referring now to pages 61 to 66 of the Appendix, the Watermark Exhibit Scan Utility 
module is an automatic trial exhibit maker. It allows exhibit descriptions to be added as the 
1 5 documents are being scanned. 

Referring now to pages 67 to 68 of the Appendix, Luke's Automated OCR'ing Utility 
module enables the OCR software, such as Omni Page Pro, to run in a batch file mode at 
various scheduled times. It corrects errors and loads the assigned documents to the OCR 
program. 

20 Although the method and apparatus of the present invention has been described in 

connection with the preferred embodiment, it is not intended to be limited to the specific form set 
forth herein, but on the contrary, it is intended to cover such alternatives, modifications, and 
equivalents, as can be reasonably included within the spirit and scope of the invention as defined by 
the appended claims. 

25 PROGRAM CODE 

SEE APPENDIX 1, PAGES 1 - 98 
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' PC START 

1 Copvriqht (C) 1995 - 1997, Lu):e A. Spence £.- Michael L. Saltsman 

' Last Modified on 05/9/97 ~ 

' All riqhts reserved. No portion of this program code may be altered, 

1 reproduced, used without written permission of the authors 

' Compile with 16 bit processor "GetModuleUsage" API does not v;orK wit ft 

• WIN32 or Windows NT 

Option Explicit 

Dim Drive Path As Strir.q, CaseFileName As String . 
Private Declare Function GetModuleUsage% Lib "Kernel" (ByVal .-.Module*) 
Private Sub cmdCompress Click 0 

Dim Retval As Integer, CaseToCcmDress As String, Compressed As string 
If Security () = 0 Then Exit Sub _ rtm 
Retval = MsgBoxC'Do you want this case is to be compressec? , ^75, Case com 

press " ) 

If Retval = 6 Then „ , 

CaseToCompress = Drive Path & Listl.Text & ".map 
Compressed = Drive rsth & ,: rCTerap . rudb ,: 
CompactDatabase CaseToCompress, Compressed 
Kill CaseToCompress 

Name Compressed As Drive Path & Listl.Text & " .mdb" 
Msg3ox "The case is compressed. " , 0, "Compressea Case" 

Else 

Exit Sub 
End If 

Filel . Refresh 
UpdateList 
UpdateButtons 
End Sub 

Private Sub cmdCreateCase Click 0 

If Security ( ) «= 0 Then Exit Sub ^ . . -.--t , • ^ 

Dim Y As Integer, Z As Inteqer, NewCaseName As String, OriginalFile As Str ng 
Dim Ansr, CurDrv, Msg, TmpPath, HomeDir, ChrName As String, Characters As Spring 
Dim NewFile As String, TestFile As String a . ht . 

NewCaseName = InputBoxS ( " Please type your case name. It can oe up to eignt 
letters long, you may use any letter (s), number(s), or the casn - & /or the un 
derscore ' ' symbols in your description.", "Case Name , J 

If NewCaseName = Then Exit Sub 

If UCase (NewCaseName) = " DOCONTR " Then , ^ 

MsgBox "Please use another filename.", 0, "Reserved Case Name. 
Exit Sub 

End If 

NewCaseName = Left$ (NewCaseName , 8) 
Z = Len (NewCaseName) 
For Y = 1 To Z 

ChrName = Mid$ (NewCaseName , Y, 1) 

Select Case UCase (ChrName) , , 1T „ 1IM „ 

Case "A", "B", "C", "D" , "E" , "F" , "G" , "H", "I", "J", K" , 1 L " , "M" , "N" 
" O" "P"7 "Q" ! "R" I " S" ' "T" , "U" , "V", "W" , "X", "Y" , "Z" 

ChrName = ChrName ^„ „ „ „ 

Case "n M 11 i n " V "4", " np: " "7", "8", n< * M ( „ 

ChrName - ChrName 
Case Else 

ChrName = " " 
End Select 

Characters = Characters +• ChrName 
Next Y 

NewCaseName = Characters 

OriginalFile = Drive Path & "docontr .mdb'^ 
NewFile = Drive Path & NewCaseName U " .mdb" 
TestFile = Dir (NewFile) 
If TestFile = " " Then 

FileCopy OriginalFile, NewFile 

Else 

MsgBox "That case already exists. " 

Filel .Refresh 

UpdateList 
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UpdateButtons 
Exit Sub 
End If 



Set up error handler. 

■ Get current drive letter. 



' Make path specification. 
"\ IMAGES '■) 
"\DOCS") 
»\DEPOS") 



On Error Resume Next 
CurDrv = Left (CurDir, 2) 
HomeDir = CurDir 

TmpPath = UCase (HomeDir & "\" & NewCaseName) 
MkDir TmpPath ' Make new directory. 
TmpPath = UCase (HomeDir & "\" fit NewCaseName i 
MkDir TmpPath ' Make new directory. 
TmpPath = UCase (HomeDir & "\" fit NewCaseName . 
MkDir TmpPath ' Make new directory. 
TmpPath = UCase (HomeDir & "\" & NewCaseName 
MkDir TmpPath ' Make new directory. 
Filel .Refresh 
UpdateList 
UpdateButtons 
End Sub 

Private Sub cmdDeleteCase Click 0 

Dim CurDrv, Msq, TmpPath, FileKill, HomeDir, caseToDelete 
Dim Retval As inteqer, ToDelete As String 
If Security {) « 0 Then Exit Sub 

Retval = MsgBox( ,l Are you positive that this case is to be deleted?", 275, 
ase Deletion") 

If Retval = 6 Then 

ToDelete « Drive Path fit Listl.Text fit ".mdb" 
If InStr (Listl.Text, "DOCONTR" ) Then Exit Sub 
Kill ToDelete 



Set up error handler. 

■ Get current drive letter. 



11 \" U caseToDelete & " \ IMAGES" ) 



"V 



caseToDelete u " \DCCS" ) 



n \ n fit caseToDelete & "\DEPOS") 



On Error Resume Next 
CurDrv » Left (CurDir, 2) 
HomeDir « CurDir 
FileKill =»*.*« 

caseToDelete » Drive Path & Listl.Text 
TmpPath « UCase (HomeDir & 
ChDir TmpPath 
Kill FileKill 
ChDir HomeDir 
RmDir TmpPath 
TmpPath - UCase (HomeDir & 
ChDir TmpPath 
Kill FileKill 
ChDir HomeDir 
RmDir TmpPath 
TmpPath » UCase (HomeDir fit 
ChDir TmpPath 
Kill FileKill 
ChDir HomeDir 
RmDir TmpPath 

TmpPath = UCase (HomeDir & "\" & caseToDelete) 
RmDir TmpPath 
Else 

Exit Sub 
End If 

MsqBox "Per your request, 
Filel. Refresh 
UpdateList 
UpdateButtons 
End Sub 

Private Sub cmdExit_Click ( ) 

End 
End Sub 

Private Sub cmdLoadCase Click () 

Dim L As Inteqer, Z As Integer, Database As String, LoadAccess As String 
On Error Resume Next 
Database = Listl.Text fit ".mdb" 

•a hard map was added to make this work on 97 laptops 
LoadAccess « "Chaser.exe " & "C : \PCHASER\ " & Database 



the case is deleted.", 0, "Deleting Case" 
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L = Shell (LoadAccess , 1) 

Forml /WindowState = 1 'Minimized 

While GetModuleUsage (L) > 0 

Z « DoEvencsO 
Wend 

Forml /Windows tat e = 0 
End Sub 

Private Sub cmdMinimize Click () 

Forml .WindowState = 1 
2nd Sub 

Private Sub CmdMklbl Click () 
Dim X As Integer, Z As Integer 
On Error Resume Next 
X= Shell ("LABEL. EXE", 1) 

Forml .WindowState = 1 'Minimized 
While GetModuleUsage (X) > 0 

Z% = DoEventsO 
Wend 

Forml .WindowState = 0 
End Sub 

Private Sub cmdRename Click () _ . ~w^m*™ *^ ch^nn rh a rar 

Dim Z As Integer, Y As Integer, NewCaseName As String, ChrName As String, Charac 

te^s As String 

Dim OriqinalFile As Strinq, NewFile As String, TestFile As String 
If Security () = 0 Then Exit Sub 

Dim dirToChanqe, dirToChanqeTo , «Sahr 

NewCaseName = InputBoxS ( "Please type your case name It can be up to eiqht 
letters lonq, you may use any letter(s), numoer(s), or the dasn - & /or the un 
derscore ' ' symbols in your description.", "Case Name , ) 
If NewCaseName » " " Then Exit Sub 
If UCase (NewCaseName) = "DOCONTR" Then 

MsqBox "Please use another filename.", 0, "Reserved Case Name." 
Exit Sub 
End If 

NewCaseName = Left$ (NewCaseName , 8) 
Z - Len (NewCaseName) 
For Y = 1 To Z 

ChrName = Mid$ (NewCaseName , Y, 1) 

Select Case UCase (ChrName) MV . n nT „ IIM „ „ M „ 

r „ p it jv m ..Q.I "r» «D" "S" , "F", "G" , "H", "I", "J"/ K", n L\ M , N 
"0", «Q«! »R< "S'\ ,! T ,! ! "U< "V\ »W", "X", :: Y", *»Z" 

ChrName = ChrName „ tt „ „ 

Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", - , _ 

ChrName = ChrName 
Case Else 

ChrName = " " 
End Select 

Characters = Characters + ChrName 
Next Y 

NewCaseName = Characters 

OriqinalFile = Drive Path & Listl.Text & ".mdb 
NewFile = Drive Path & NewCaseName & " .mdb" 
d" 5 rTcChcnga - CvrDir 1 " \ " C Listl.Text & ,; \ " 
dirToChanqeTo ="curDir & "\" & NewCaseName & "V 
TestFile « Dir (NewFile) 
If TestFile = Then 

Name OriqinalFile As NewFile 

MsqBox dirToChanqe 

MsqBox dirToChanqeTo 

Name dirToChange As dirToChangeTo 

Else 

MsqBox "That case already exists." 
Exit Sub 
End If 

Filel .Refresh 
UpdateList 
UpdateButtons 
End Sub 

Private Sub cmdRepair_Click ( ) 
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Dim Retval As Inteqer, CaseToRepair As String 
If Security 0 = 0 Then Exit Sub 

Retvai « MsgBox ("Do you want this case is to be repaired?", 27 5, "Case Repai 

r" ) 

If Retval = o Then 

CaseToRepair = Drive Path & List 1. Text & " .mdb" 
RepairDatabase CaseToRepair 

MsgBox "The case is repaired.", 0, "Repaired Case" 

Else 

Exit Sub 
End If 

Filel .Refresh 
UpdateList 
UpdateButtons 
End Sub 

Private Sub Commandl_Click() 

End 
End Sub 

Private Sub Dirl Chanqe ( ) 

Filel. Path = Dirl. Path 
End Sub 

Private Sub Drivel Chanqe ( ) 

On Error Resume Next 

Dirl. Path = Drivel. Drive 
End Sub 

Private Sub Form LoadO 
On Error Resume Next 
• center form 

Me. Left « (Screen. Width - Me. Width) / 2 
Me. Top - (Screen. Height - Me. Height) / 2 
pctLoqo. Picture - LoadPicture ( "backgrnd.bmp" ) 

UpdateList t , , „ _ 

If Dir(Drive Path & "DOCONTR.MDB") * " " Then cmdCreateCase . Enabled = False 
cmdDeleteCase. Enabled « False 
cmdLoadCase. Enabled = False 
cmdRename. Enabled - False 
cmdRepair .Enabled « False 
cmdComoress .Enabled = False 
cmdSysAdmin. Enabled « False 
End Sub 

Private Sub Listl Click 0 

If Listl. Text = " DOCONTR " Then 

cmdDeleteCase . Enabled = False 

cmdRename . Enabled = False 
Else 

cmdDeleteCase. Enabled = True 
cmdRename. Enabled * True 
cmdRepair. Enabled = True 
cmdComor ess .Enabled = True 
End If 

cmdSysAdmin. Enabled = True 
cmdLoadCase. Enabled = True 
ErsrJ Sub 

Private Sub Listl DblClickO 

cmdLoadCase .Value = True 

Rem cmdSysAdmin. Value = True 
End Sub 

Private Function Security {) 
Dim Ans 
Security =0 

Ans = InputBox ( "Enter your Paper Chaser Administration Password", "Security ) 
If Ans = "Rufus" Or Ans « "rufus" Then 

Security « 1 

Else 

MsgBox "Access Prohibited. Incorrect Password", 16, "Security Check" 
End If 
End Function 

Private Sub UndateButtons ( ) 

cmdLoadCase . Enabled = False 
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cmdDeleteCase . Enabled = False 
cmdRename . Enabled - False 
cmdRepair . Enabled = False 
cmdCompress . Enabled = False 
cmdSysAdmin. Enabled = False 
End Sub 

Private Sub UpdateListO 

Dim X As Integer, I As Integer, CaseName As String, Test As String 
Listl . Clear 

For 1=0 To Filel .ListCount - 1 
CaseFileName = Filel . List (I) 
For X = 1 To 8 . 

Test = Mid$ (CaseFileName, X, 1) 

If Test = "." Then Exit For 

CaseName = CaseName + UCase(Test) 
Next X 

Listl .Addltem CaseName 
CaseName = " " 
Next I 
End Sub 

Private Sub CmdSysAdmin Click () 

Dim X As Integer, Z As Integer, LoadAccess As String, Database As String 
On Error Resume Next 
Database = Listl. Text & ".mdb" 

LoadAccess = "msarn200.exe " & Database & " /ini pchaser.ini" 
X = Shell (LoadAccess, 1) 

Forml .WindowState - 1 Minimized 
While GetModuleUsage (X) > 0 

Z% = DoEventsO 
Wend 

Forml .WindowState = 0 
End Sub 

Private Sub PrintDocs_Click ( ) 

Dim X As Integer 

On Error Resume Next 

X = Shell ("TIFFPRINT.EXE 1 ' , 1) 

Rem Forml .WindowState = 1 'Minimized 

Rem While GetModuleUsage (X) > 0 

Rem Z = DoEventsO 

Rem Wend 

Rem Forml . WindovSt ate - 0 
End Sub 
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frmStartUP - l 

Private Sub Form Click {) 

Tirasr I . Enabled - False 

Load Forml 

Forml . Show 

Unload frmStartUP 
End Sub 

Private Sub Form Load ( ) 
On Error Resume Next 
If App. Prevlnstance Then 

Beeo 

End^ 
End If 

frmStartUP. Show 
Imgl. Picture - LoadPicture (" start -up . bmp" ) 
' Imgl.Left e (Screen. Width - Imql. Width) / 2 
'Imgl.Top = (Screen. Height - Imgl. Height) / 2 
Me. Left = (Screen. Width - Me. Width) / 2 
Me. Top = (Screen. Height - Me. Height) / 2 
End Sub 

Private Sub Timerl Timer () 

Timerl . Enabled = False 

Load Forml 

Forml . Show 

Unload frmStartUP 
End Sub 
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' Label. Maker Copyright (C) 1995, 1996 Luke A. Spence 
' Last modified on 01/02/96 

' All riqhts reserved. No portion of this cprogram code may be altered, 
■ reproduced or used without written permission of the authors. 
Option Explicit 
Deflnt A-Z 

Dim paddedSuf f ix$ 

Dim paddedPref ix$ 

Dim pref ixLenqth% 

Dim suf f ixLength% 

Dim startNumberLength% 

Dim adjusted% 

Dim page% 

Dim pages% 

Dim lineNumber% 

Dim column% 

Dim labelsPrinted% 

Dim skip% 

Dim skipLine% 

Dim startLineNumber% 

Dim startColumnNumber% 

Dim bateStampNumberfc 

Private Sub cmdExit ClickO 

End 
End Sub 

Private Sub cmdHelp ClickO 

frmHelp.Left = (Screen .Width - frmHelp .Width) / 2 

frmHelp.Top = (Screen . Height - frmHelp . Height ) / 2 

Load frmHelp 

frmHelp. Show 1 
End Sub 

Private Sub cmdPrint_Click () 

PrintLabels 
End Sub 

Private Sub DetermineCenter ( ) 

If Len (txtPref ix) = 0 Then 'Adding a space to the end of 

paddedPrefix = " " 'the prefix, if it exists, to 

Else 'keep it and the bateStampNumber 

paddedPrefix = txtPrefix & " " 'one space apart on the printout 

End If 

prefixLength = Len (paddedPrefix) 

If Len(txtSuf f ix) = 0 Then 1 Adding a space to the 

paddedSuf fix = "" 'beginning of the suffix, if 

Else 'it exists, to keep it and 

p?dHer«.9uf f ix - » " &. txtSuffi:; 'the tateStampNumber one 

End If 'space apart on the printout 

suffixLength = Len (paddedSuf fix) 

If optNoSpacing = True Then 

startNumberLength = Len (txt St art Number) 
Else 

startNumberLength = 7 
End If 

' the following determines the center 

adjusted = 8 - ((prefixLength + startNumberLength + suffixLength) \ 2) 
End Sub 

Private Sub Form Load ( ) 
cmdPrint .Enabled » False 
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End Sub 

Private Sub optNumOf Label s_Click ( ) 

txtNumRequired - "" 
End Sub 

Private Sub optNumOf Pages_Click ( ) 

txtNumRequired = " H 
End Sub 

Private Sub optPref ixNO_Click (Value As Integer) 

UpdateLength 
End Sub 

Private Sub optPref ixYES_Click (Value As Integer) 

UpdateLength 
End Sub 

Private Sub optsuf f ixNO_Click (Value As Integer) 

UpdateLength 
End Sub 

Private Sub optsuf fixYES_Click (Value As Integer) 

UpdateLength 
End Sub 

Private Sub PrintLabels ( ) 

pnlDi splay .Caption = "Printing..." 
On Error Resume Next 

If txtStartAt Column = " M Then txt St art At Column = 1 
If txtStartAtRow = " " Then txtStartAtRow = 1 
startLineNumber = txtStartAtRow 
startColumnNumber = txtStartAtColumn 

DetermineCenter 

Printer . FontName = "Courier" 
Printer. FontSize « 12 
Printer . FontBold = True 

labelsPrinted = 0 

bateStampNumberfc = txtStartNumber 
pages = lblNumOf Pages + 1 

For page = 1 To pages 

For lineNumber = startLineNumber To 20 
If startLineNumber > 1 Then 

For skipLine = 1 To startLineNumber - 1 

Printer .Print "": Printer . Print " " : Printer . Print " " 
Next skipLine 
End If 

startLineNumber « 1 

Printer. Print "": Printer . Trint . Printer . Print 
For column = startColumnNumber To 4 
startColumnNumber = 1 

If Int (labelsPrinted) >= Int (lblNumOf Labels) Then GoTo Done 

If column = 1 Then skip = adjusted + 2 

If column = 2 Then skip = adjusted + 23 

If column = 3 Then skip = adjusted + 43 

If column = 4 Then skip = adjusted + 63 

Printer .Print Tab(skip); 

Printer . Print paddcdPref ix; 

If opt Zeros = True Then 

Printer .Print Format$ (bateStampNumber&, "0000000") ; 
Elself optSpaces = True Then 

Printer . Print Format$ (bateStampNumberfc, l, @®®@@@@ n ) ; 
Else 

Printer .Print Format$ (bateStampNumberfc, »#######") ; 
End If 
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Printer . Print pacidedSuf f ix; 

V.t* r*P.l- sirnM'* mho -r& = QQQQQ 



column = 4 
lineNumber = 20 
paqe = pages 
End if 

bateStampNumberfc = bateStampNumber& + 1 
labelsPrinted = labelsPrinted + 1 
skip = skip + 20 ' adds 20 spaces to the 'Tab* 
Next column 
Next lineNumber 
Printer . NewPage 
Next paqe 
Printer. EndDoc 
Exit Sub 

Done : 

Printer . NewPaqe 
Printer . EndDoc 

pnlDisplay .Caption = "Print job sent to the printer." 
Exit Sub 

End Sub 

Private Sub txtNumRequired_Change ( ) 
On Error Resume Next 
If optNumOf Paqes = True Then 

lblNumOfLabels = txtNumRequired * 80 

lblNumOfPages = txtNumRequired 
End If 

If optNumOf Labels » True Then 
lblNumOfLabels = txtNumRequired 

lblNumOfPages = Format$ ( (txtNumRequired / 80), "####.##") 
End If 

If txtNumRequired = " " Then 

lblNumOfLabels = " 

lblNumOfPages = " " 
End If 

If txtStartNumber <> " " And txtNumRequired <> "" Then 

cmdPrint .Enabled = True 
Else 

cmdPrint .Enabled = False 
End If 
End Sub 

Private Sub txtStartAtColumn_Change ( ) 
On Error Resume Next 

If txtStartAtColumn.Text < 1 Then txt StartAt Column . Text = " " 
If txtStartAtColumn.Text > 4 Then txtStartAtColumn.Text = "" 
End Sub 

Private Sub txtStartAtRow_Change () 
On Error Recuse Next 

If txt Start AtRow. Text < 1 Then txtStartAtRow.Text = " " 
If txtStartAtRow.Text > 20 Then txtStartAtRow.Text = "" 
End Sub 

Private Sub txtStartNumber Change () 

If txtStartNumber <> " " And txtNumRequired <> " " Then 

cmdPrint . Enabled = True 
Else 

cmdPrint .Enabled = Fal«=e 
End If 
End Sub 

Private Sub txtStartNumber_KeyPress (KeyAscii As Integer) 
Select Case KeyAscii 
Case 48 To 57 

' do nothing, valid entry 
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Case 8 

1 backspace character 
Case Else 

KeyAscii =0 '48 
End Select 
End Sub 

Private Sub UpdateLenqth ( ) 

If optPrefixYES = true Then 
If optSuffixYes = True Then 
' PREFIX 

txtPref ix.MaxLenqth = 3 
txtPref ix.Lef t = 480 
txtPrefix. Width = 615 
txtPref ix. Visible = True 
lblPref ix.Left = 480 
lblPrefix. Visible = True 
1 SUFFIX 

txtSuff ix.MaxLenqth = 3 
txtSuff ix.Left = 3120 
txtSuffix. Width * 615 
txtSuff ix. Visible = True 
lblSuff ix.Left = 3120 
lblSuf fix. Visible = True 
' NUMBER 

txtStartNumber.Left = 1440 
lblStartNumber.Left = 1440 
Else 

■ SUFFIX 

txtSuff ix. Visible = False 
lblSuf fix. Visible = False 
txtSuffix s 
' PREFIX 

txtPref ix.MaxLenqth = 7 
txtPref ix.Lef t = 600 
txtPref ix. Width = 1300 
txtPref ix. Visible = True 
lblPref ix.Left = 600 
lblPrefix. Visible = True 
'NUMBER 

txtStartNumber.Left - 2300 
lblStartNumber.Left - 2300 
End If 

Elself optSuffixYes Then 

txtPref ix. Visible = False 
lblPref ix. Visible = False 
txtPrefix » 
' SUFFIX 

txtSuff ix.MaxLenqth - 1 
txtSuff ix.Left = 2300 
txtSuffix. Width = 1300 
txtSuff ix. Visible a True 
lblSuf f \ v . r«ef t -> 2? n 0 
lblSuf fix. Visible = True 
'NUMBER 

txtStartNumber.Left = 600 
lblStartNumber.Left * 600 
Else 

txtPref ix. Visible = False 
lblPref ix. Visible = False 
txtPrefix = " " 
txtSuff ix. Visible = False 
lblSuf fix. Visible = False 
txtSuffix = " M 
txtStartNumber.Left = 1400 
lblStartNumber.Left = 1400 
End If 
End Sub 



1 SUFFIX Sc PREFIX 



■ PREFIX 



' SUFFIX 



• NONE 



-24- 



WO 98/18092 



PCT/US97/18935 



frmStartUp - 1 

' Copyright (C) 1995, 19^ Luke Spence 
' Last modified on 01/02/96 

Private Sub Form Click {) 

Timerl .Enabled - False 

Load Forml 

Forml . Show 

Unload frmStartUp 
End Sub 

Private Sub Form LoadO 

frmStartUp. Left = (Screen. Width - frmStartUp . Width) / 2 
frmStartUp .Top = (Screen. Height - frmStartUp . Height) / 2 
frmStartUp. Show 

Forml. Left = (Screen. Width - Forml. Width) / 2 
Forml. Top = (Screen . Height - Forml .Height ) / 2 
Load Forml 
End Sub 

Private- Sub TimerlJTimer ( ) 

Load Forml 

Forml . Show 

Unload frmStartUp 
End Sub 



frmHelp - 1 

• Copyriqht (C) 1995,1996 Luke Spence 
' Last modified on 01/02/96 

Option Explicit 

Private Sub cmdReturn_Click ( ) 

Unload frmHelp 
End Sub 
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' Paper Chaser 

'Copyright (C) 1D9Z - 1327, Michael L. Saltsman 

'All riqhts reserved. No portion of this program code may be altered, used or re 
produced 

'without written permission of the author. 

Option Explicit 

' declare API functions 

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVa 

1 nDrive As String) As Long 

' declare API constants 

Const DRIVE CDROM = 5 

Const DRIVE FIXED « 3 

Const DRIVE RAMDISK = 6 

Const DRIVE REMOTE = 4 

Const DRIVE_REMOVABLE = 2 

Public DriveType As String 
Public CurrentDisk As Variant 
Public DiskXum As Variant 
Dim CDROM As Strinq 
Public MyCriteria As String 
Dim ImaqePath As String 
Public NoC As Variant 
Dim StrBuffer As Strinq * 250 
Private Sub CmdAdd Click () 
Datal . Recordset . AddNew 
Datal . Recordset . Update 
Datal . Recordset . MoveLast 
Text 3 4. Text = "Q.TIF" 
End Sub 

Private Sub CmdBrief Click () 

Dim Temp As Strinq, R As Double, Test As String 
Label34 .DataField = " ImagePath" 
Temp = Labe 13 4 .Caption & Text34.Text 
Test = Label34 .Caption & Text34,Text 
If Dir(Test) <> , " t Then 

R = Shell ("D0CIV.EXE « Sc Temp, 1) 

Exit Sub 

Else 

MsgBox "Image not available. Wrong disk. Use Go To to re-enter document num 
ber to' f iad disk number. " 

End If 
End Sub 

Private Sub CmdDelete ClickO 

Dim Msg As String, Title As String, Style As Variant, Response As Variant, MyStr 
ing As String 

Msq = "Delete this entry?" * Define message. 

Style = vbYesNo + vbQuestion + vbDef aultButton2 1 Define buttons. 

Title = "Delete Entry Confirmation" ' Define title. 

Response = MsgBox (Msg, Style, Title) 

If Response = vbYes Then ' User chose Yes. 

MyString = "Ycc" * Perform soma c.cticn. 

Datal . Recordset . Delete 

Datal .Refresh 

Data2 .Refresh 

Exit Sub 
Else ' User chose No. 

MyString = "No" ' Perform some action. 

Beep 

Exit Sub 
End If 
End Sub 

Private Sub CmdEnd_Click() 
End 

End Sub 

Private Sub CmdGoto ClickO 
Dim MyCriteria As String 

FrmSearch.Labell . Caption = "Enter the Document # to find:" 
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gs FieldName$ = " [Doc Number] " 
Load GctoDoc 
GotoDoc . Show 
End Sub 

Private Sub CmdPrint Screened ick () 
Dim Msg 

On Error GoTo ErrorHandler 

Forml . PrintForm 

Printer . EndDoc 

Exit Sub 

ErrorHandler: 

Msq = "The form can't be printed." 

MsqBox Msg ' Display message . 

Resume Next 
End Sub 

Private Sub CmdRpts Click {) 

Dim LoadAccess As String, X As Variant 

Me. Left = {Screen. Width - Me. Width) / 2 

Me. Top = (screen. Height - Me. Height) / 2 

Rem Load FrmRpt 

Rem FrmRpt. Show 

Rem ProgramPath.DataField = "DbPath" 
Rem MsqBox gs FileName$ 

Rem REMOVE THIS HARD CODE . 
LoadAccess = "C:\PCHASER\msarn200.exe " & " C : \PCHASER\ " & gs_FileName$ & " /ini 
pchaser . ini " 

X = Shell (LoadAccess, 1) 
End Sub 

Private Sub CmdTrans Click () 
Dim R As Double, Temp As String 
Label34 .DataField = " ImagePath" 
Temp = Label34 .Caption & Text34.Text 
R = Shell ("SUMCLONE.EXE " & Temp, 1) 
End Sub 



Me. Width) / 2 
Me. Height) / 2 



gs FileName$ 
gs FileName$ 
gs FileName$ 

"Select * from [Document Info] order by [Doc Number] " 
from [Preferences] " 
from [Disk Names] n 



Private Sub Form LoadO 

Dim MyDb As String, MyDrive As String, Z As Integer 
Rem PLACED HERE BECUASE OF PATH PROBLEMS ON CDROM LOAD UP 
On Error Resume Next 
1 hourglass cursor 
MouscPointer = II 
Me. Left = (Screen. Width 
Me. Top = (Screen. Height 
gs FileName$ « Command $ 
Rem MsgBox Command$ 
Datal . DatabaseName 
Data2 . DatabaseName 
Data3 .DatabaseName 
Datal . RecordSource 
Data2 . RecordSource 
Data3 . RecordSource 
Textl. DataField = 
Tsxt 2 . D— taField 
Text3 .DataField = 
Text4 .DataField = 
Texts. DataField = 
Text6 .DataField = 
Text7 .DataField * 
Texts .DataField = 
Text9 .DataField = 
TextlO .DataField 
Text 11 .Dat^ield 
Text 12 .DataField 
Textl3 .DataField 
Textl4 .DataField 
TextlS . DataField 
Textl6 . DataField 
Textl7 . DataField 
Textl8 .DataField 



= "Select 
= "Select * 
"Doc Number" 



"Beg Bates #" 
"End Bates #" 

II ft} tl 

"From" 
" CC ' s " 

"Description" 
"Comments " 

"Taq 1" 

"Tag 2" 

"Tag 3" 

"Tag 4" 

"Tag 5" 

"Tag 6" 

"Tag 7" 

"Tag 8" 

"Tag 9" 
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Textl9. DataField = "Taq 10" 
Text20.DataFicld = "Taq 11" 
Text21. DataField = "Taq 12" 
Text22. DataField * "Taq 13" 
Text23 .DataField - "Taq 14" 
Text24 .DataField « "Taq 15" 
Text25 .DataField = "Taq 16" 
Text26 .DataField = "Taq 17" 
Text27. DataField = "Taq 18" 
Text28 .DataField = "Taq 19" 
Text29 .DataField = "Taq 20" 
Text3 0 .DataField = "Taq 21" 
Text31. DataField « "Taq 22" 
Text32 .DataField « "Taq 23" 
Text3 3 .DataField « "Taq 24" 
Text 34 .DataField = "Entry Info" 
Text35. DataField = "DbPath" 
Text35 . DataField = "Case Name" 
Text36. DataField = "Exhibit 8" 
Text3 7. DataField = "Ext" 
LabellO .DataField = "Field 1" 
Labelll .DataField = "Field 2" 
Labell2 .DataField = "Field 3" 
Labell3 .DataField = "Field 4" 
Labell4 .DataField = "Field 5" 
LabellS. DataField = "Field 6" 
Labell6. DataField = "Field 7" 
Labell7 .DataField = "Field 8" 
Labell8 .DataField « "Field 9" 
Labell9 .DataField » "Field 10" 
Label20. DataField = "Field 11" 
Label21 .DataField = "Field 12" 
Label22 .DataField = "Field 13" 
Label23 .DataField = "Field 14" 
Label24 .DataField = "Field IS" 
Label25. DataField = "Field 16" 
Label26. DataField = "Field 17" 
Label27 .DataField = "Field 18" 
Label28 .DataField = "Field 19" 
Label29. DataField = "Field 20" 
Label3C .DataField « "Field 21" 
Label31 .DataField = "Field 22" 
Label32 .DataField = "Field 23" 
Label33 .DataField = "Field 24" 
Label34 .DataField = "ImagePath" 
ImaqeManl . AutoScale « 1 
ImaqeManl . ScaleMethod = 3 
Label35 .DataField » "DbPath" 



1 normal cursor 
MousePointer = 0 

Private Sub Form_Paint { ) 
Datal .Refresh 
End Sub 

Private Sub Form_Query Unload (Cancel As Integer, UnloadMode As Integer) 
End 

End Sub 

Private Sub Fulltext Click () 
Rem Remove hard coding for Isys 
Dim ISYS$, Xfic 
Rem X% 

Label34 .DataField = "IsysPath" 
ISYS = Label3 4 .Caption 

ISYS = "C:\ISYS\IQW.EXE /Z /D=" + ISYS 
L.abel34 .DataField = "ImagePath" 
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X - Shell {ISYS, 1) 
End Sub 

Private Sub ImaqeManl DblClickO 

Rem remove hard codinq for watermark 

Dim Temp As Strinq, R As Double 

Label34 .DataField = '* ImaqePath" 

Temp = Label34 .Caption & Text34.Text 

R = Shell ("C:\WMPRO\WMPRO.EXE " & Temp, 3) 

End Sub 

Private Sub ImaqeManl GotFocust) 

Datal . Recordset . MoveNext : Datal . Recordset . MovePrevious 
End Sub 

Private Sub Textl DblClickO 
qs FieldName$ = " [Doc Number] " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub TextlO DblClickO 
qs FieldName$ = " [Tag i] " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text 11 DblClickO 
qs FieldName$ - "[Tag 2]" 
Load FrmSearch 
FrmSearch. Show 
End Sub 

Private Sub Textl2 DblClickO 
qs FieldName$ « "[Tag 3]" 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Textl3 DblClickO 
qs FieldName$ = " {Tag 4] " 
Load FrmSearch 
FrmSearch. Show 
End Sub 

Private Sub Textl4 DblClickO 
qs FieldName$ * " [Tag 5] » 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub TextlS DblClickO 
qs FieldName$ = " [Tag 6]" 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Textl6 DblClickO 
qs FieldName$ - "[Tag 7] « 
Load FrmSearch 
FrmSearch . Show 
End Sub 

rrivacc Cub To::tl7 DblClickO 
qs FieldName$ = "[Tag 8] » 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Textl8 DblClickO 
qs FieldName$ = "[Tag 9]" 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Textl9 DblClickO 
qs FieldName$ « "[Tag 10]" 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text2 DblClickO 
gs FieldName$ = " [Doc Date] " 
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Load FrmSearch 
FrnvSearch . Show 
End Sub 

Private Sub Text20 DblClickO 
gs FieldName$ - "[Tag 11]" 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text21 DblClickO 
gs FieldName$ = "[Tag 12]" 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text 22 DblClickO 
gs FieldName$ = "[Tag 13]" 
Load FrmSearch 
FrmSearch. Show 
End Sub 

Private Sub Text 2 3 DblClickO 
gs FieldName$ = "[Tag 14]" 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text24 DblClickO 
gs FieldName$ = " [Tag 15] " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text25 DblClickO 
gs FieldName$ = "[Tag 16] " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text26 DblClickO 
gs FieldName$ = "[Tag 17]" 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text27 DblClickO 
gs FieldName$ = "[Tag 18]" 
Lead FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text28 DblClickO 
gs FieldName$ = " (Tag 19] " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text29 DblClickO 
gs FieldName$ = " [Tag 2 0] " 
Load FrmSearch 
FrmSearch. Show 
End Sub 

Private Sub Text3 DblClickO 
gs FieldName$ = " [Beg Bates #] " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text30 DblClickO 
gs FieldName$ = " [Tag 21) " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text31 DblClickO 
gs FieldName$ « " [Tag 22] " 
Load FrmSearch 
FrmSearch. Show 
End Sub 

Private Sub Text32 DblClickO 
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qs FieldName$ = " [Tag 23 J " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text33 DblClickO 
qs FieldNameS » "[Tag 24]" 
Load FrmSearch 
FrmSearch. Show 
End Sub 

Private Sub Text34 Chanqe ( ) 
Dim MyDb As Strinq, MyDrive As Strinq, Z 
Dim Test As Strinq, BeqDocNum As Variant, 

Dim DocToFind As Variant, CdPresent As Strinq, MyName As Strinq 
Dim RemovePrefix As String, X As Double, Msg As String, OldPath As String, Inser 
tDisk As Inteqer 
Label 3 6. Caption = " " 



As Inteqer, FileLoc As Strinq 
EndDocNum As Variant, MyPath As String 



Z = Len (Label35 . Caption) 
MyDrive = Left (MyDb, 3) 

On Error GoTo ErrorHandler 
LoadDriveType 



4: MyDb = Left (Label3 5 . Caption , Z) 



Check. Disk" 



If Text34.Text = "" Then Label36 .Caption = "File not Found 
ImaqeManl . Picture = Label 3 4 . Caption & Text34.Text 
If Text34.Text = "Q .TIF" Then 

ImaqeManl . Picture = Label 3 4 . Caption & "Q . TIF" 

Label36 . Caption = "Picture file not available." 

Exit Sub 

End If 

If DriveType = "CD-ROM Drive" Then 

X = Len (Label35 .Caption) : FileLoc = Left (Label35 . Caption, X - 4) 
Open FileLoc & "\CDINFO.DAT" For Input As 1# 
DocToFind = Text34.Text 
Input #1, CDROM, RemovePrefix 

MyName = Mid (DocToFind , RemovePrefix): X « Len (DocToFind) 
MyName = Left (MyName, X - 5) : DocToFind = Val (MyName) 

Do While Not EOF(l) 

Input #1, DiskNum, BeqDocNum, EndDocNum 

If DccTcFind >= BegDocNum And DocToFind <- EndDocNum Then Exit Do 

Loop 

Close nl 

If InsertDisk = 0 Then 

Me. Caption = "Paper Chaser - Disk #" St DiskNum & " in CD ROM." 
Else 

Me. Caption = "Paper Chaser - Insert disk tf" fit DiskNum & " in CD ROM." 
End If 
End If 



If DriveType = 
Me .Caption 
Rr.H if 

Rem Me. Caption 

xt 

Exit Sub 



"Network Drive" Or DriveType = "Hard Drive" Then 
= "Paper Chaser - " & Label34 . Caption fit Text34.Text 



= "Paper Chaser - Document Info 



& Label 34 .Caption & Text34.Te 



ErrorHandler : 

Select Case Err. Number 

Case 53 '"File Not Found" 

Label 3 6 . Caption = "File not found." 

ImaaeManl . Picture ~ MyDrive & "PChaser\" £ "Q.TIF" 

InsertDisk « 1 

Resume Next 

Case 76 ■ "No Disk" error. 

Label3 6 . Caption =* "No Disk in CDROM. Insert a Disk. 
InsertDisk = 1 
Resume Next 

Case 68 1 "Device not available" 
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Label3 6 .Caption = "No Disk in CDROM. Insert a Disk." 

ImageManl . Picture - MyDrive Sl "FChaserV & "Q.TIF" 

InsertDisk = 1 

On Error Resume Next 

Case 32504 '"File Not Found" 

Label 3 6 .Caption = "File not found." 

ImageManl . Picture = MyDrive & "PChaser\" & "Q . TIF" 

InsertDisk = 1 

Resume Next 

Case Else 

Rem On Error Resume Next 

MsgBox Err. Number & "Load Error Number" 

Resume Next 
End Select 
Resume 
End Sub 

Private Sub Text34 DblClickO 
gs FieldName$ = " [Entry Info 3 :I 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text3S DblClickO 
gs FieldName$ = " [Exhibit #3 " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text37 DblClickO 
gs FieldName$ = "[Ext]" 
Load FrmSearch 
FrmSearch. Show 
End Sub 

Private Sub Text4 DblClickO 
gs FieldName$ = " [End Bates #3 " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Texts DblClickO 
gs FieldName$ = " [to] " 
Load FrmSearch 
FrmSearch. Show 
End Sub 

Private Sub Text6 DblClickO 
gs FieldName$ = " [from] " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text7 DblClickO 
gs FieldName$ « " [CC's]" 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Priv^r 2 s-Jib Text 3 Db 1 Click ( ) 
gs FieldName$ = " [Description] " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text9 DblClickO 
gs FieldName$ - " [Comments] " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Function FileExists (Filename As String) As Boolean 
Dim TempAttr As Integer 

If (Len (Filename) = 0) Or ( InStr (Filename, "+ M ) > 0) Or ( InStr (Filename , "?") > 
0) Then 

FileExists = False 

Exit Function 

End If 
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Gii Error Go To EriorFiieExist 
TempAttr = GetAttr (Filename) 

FileExists = ((TempAttr And vbDirectory) « 0) 
GoTo ExitFileExist 

ErrorFileExist : 
FileExists « False 
Resume ExitFileExist 

ExitFileExist: 
On Error GoTo 0 
End Function 

Private Sub LoadDriveType ( ) 

Dim MyDrive As String 

On Error GoTo ErrorHandler 

1 get drive type of currently selected drive 
MyDrive = Left (Label34 . Caption, 1): Drivel. Drive = MyDrive 
Selecu Case GetDriveType iUCase (Left (Drivel .Drive, 1)) & ":\") 
Case DRIVE REMOVABLE 

DriveType = "Floppy Drive" 
Case DRIVE FIXED 

DriveType « "Hard Drive" 
Case DRIVE REMOTE 

DriveType * "Network Drive" 
Case DRIVE CDROM 

DriveType = "CD-ROM Drive" 
Case DRIVE RAMDISK 

DriveType = "RAM Disk" 
Case 0 

DriveType = "Could not determine drive type." 
Case 1 

DriveType = "Drive does not exist . " 
Case Else 

DriveType = "Unknown or Illegal Drive" 
End Select 
'MsqBox DriveType 
Exit Sub 

ErrorHandler : 

Select Case Err. Number 

Case 6 8 ( No Drive Found - Occurs when no CD ROM is in Drive 
Me. Caption = "Paper Chaser - No Disk in Drive." 

Case Else 

Rem MsgBox Err. Number St "Drive Type Error Number" 
End Select 
End Sub 

Private Sub Drivel Change () 

'load the drive type label when the drive combo 
■ changes 
LoadDriveType 
End Sub 
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Option Explicit 

Private Sub BitRpt Click {) 

Dim LoadAccess As String, X As Variant 

ProqramPath.DataField = "DbPath" 

LoadAccess = "msarn2 00.exe " & ProgramPath . Caption & " /ini pchaser.ini" 

X = Shell (LoadAccess, 1) 
End Sub 

Private Sub CmdLoad ClickO 
On Error Resume Next 
Dim Tempcase$, ReportFileName$ 
Tempcase = UCase (Listl .Text) 
Select Case Tempcase 

Case UCase (Forml .LabellO .Caption) 

ReportFileName$ = "RPT01.RPT" 
Case UCase (Forml . Label 11 . Caption) 

ReportFileName$ = "RPT02.RPT" 
Case UCase (Forml .Label 12 . Caption) 

Report FileName$ « "RPT03.RPT" 
Case UCase (Forml . Labell3 . Caption) 

ReportFileName$ = H RPT04.RPT" 
Case UCase (Forml .Labell4 .Caption) 

ReportFileName? = "RPT05 . RPT" 
Case UCase (Forml . LabellB . Caption) 

ReportFileName? = "RPT0 6 . RPT" 
Case UCase (Forml .Label 16 .Caption) 

ReportFileName$ ■ = "RPT07 . RPT" 
Case UCase (Forml . Labell7 . Caption) 

ReportFileName$ = "RPT08.RPT" 
Case UCase (Forml . Labell8 . Caption) 

ReportFileName$ = "RPT09 . RPT" 
Case UCase (Forml ,Labell9 .Caption) 

ReportFileName$ = "RPT10.RPT" 
Case UCase (Forml .Label20 . Caption) 

ReportFileName$ = "RPTll.RPT" 
Case UCase (Forml .Label21 .Caption) 

ReportFileName$ = "RPT12 . RPT" 
Case UCase (Forml . Label22 . Caption) 

ReportFileName$ - "RPT13.RPT" 
Case UCase (Forml , Label23 .Caption) 

ReportFileName$ = "RPT14.RPT" 
Case UCase (Fcrml .Label24 .Caption) 

ReportFileName$ = "RPT15 . RPT" 
Case UCase (Forml . Label2 5 . Caption) 

ReportFileName$ = "RPT16 . RPT" 
Case UCase (Forml . Label2 6 . Caption) 

ReportFileName$ = "RPT17 . RPT" 
Case UCase (Forml .Label27 .Caption) 

ReportFileName$ = "RPT18.RPT" 
Case UCase (Forml . Label28 . Caption) 

ReportFileName$ = "RPT19 . RPT" 
Case UCase (Forml . Label2 9 . Caption) 

Report FileName$ = "RPT20 . RPT" 
rase TTCajse .'For^l Label 3 0 . Cap tier:} 

ReportFileName$ = "RPT21 . RPT" 
Case UCase (Forml . Label 31 . Caption) 

ReportFileName$ = "RPT22 . RPT" 
Case UCase (Forml .Label32 .Caption) 

ReportFileName? = "RPT23 . RPT" 
Case UCase (Forml .Label33 .Caption) 

ReportFileName$ - "RPT24 . RPT" 
Case Else 

ReportFileName? = Listl. Text & " .rpt" 
End Select 

CrystalReportl .DataFiles (0) = App.Path & "\" & gs FileName$ 
CrystalReportl . ReportFileName = App.Path & "\" & ReportFileName 

On Error GoTo ErrorHandler 
FrmRpt .Hide 
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Forml. Refresh 

CrystalReportl .Action » 1 

Exit Sub 
ErrorHandler : 

MsqBox CrystalReportl . LastErrorString 
Exit Sub 
End Sub 

Private Sub Command 2 _C lick ( ) 
Unload FrmRpt 
End Sub 

Public Sub GetReportNames () 
Listl. Clear 

Dim I As Integer, X As Integer, ReportFileName As String, ReportName As Stnn 

q 

Dim currentCharacter As String 
Filel.Path » App.Path 
For I = 0 To Filel .ListCount - 1 
ReportFileName Filel . List ( I ) 

1 The following code looks at che files in File! 
1 and strips out ".rpt" from it 
For X = 1 To 64 

currentCharacterS = Mid$ (ReportFileName, X, 1) 

If currentCharacterS = • Then Exit For 

ReportName$ - ReportName$ + currentCharacter$ 
Next X 

' the following hunk of code should looks at the report name 
' if it's on of the 24 standard reports, it uses the name 
• assigned it by the attorney, other wise it uses the name 
' as it appears in the directory 
Select Case UCase (ReportNameS) 

Case UCase ("RPT01") 
Listl .Addltem Forml . LabellO . Caption 

Case UCase ("RPT02") 
Listl .Addltem Forml . Label 11 . Caption 

Case UCase ("RPT03") 
Listl. Addltem Forml . Label 12 .Caption 

Case UCase ( "RPT04 " ) 
Listl. Addltem Forml . Labell3 .Caption 

Case UCase ("RPTOS" ) 
Listl .Addltem Forml .Label 14 .Caption 

Case UCase ( "RPT06 " ) 
Listl .Addltem Forml .Label 15 .Caption 

Case UCase ( "RPT07 " ) 
Listl .Addltem Forml .LabellS .Caption 

Case UCaseC'RPTOB") 
Listl .Addltem Forml .Labell7 .Caption 

Case UCase< n RFT09 n ) 
Listl .Addltem Forml . Label 18 . Caption 

Case UCase ("RPTIO") 
Listl .Addltem Forml . Label 19 .Caption 

Case UCase ("RPTll") 
Listl. Addltem Forml . Latcl20 . Caption 

Case UCase ( "RPT12 " ) 
Listl .Addltem Forml .Label21 . Caption 

Case UCase ("RPT13") 
List 1 .Addltem Forml . Label22 . Caption 

Case UCase ( "RPT14 " ) 
Listl .Addltem Forml . Label23 . Caption 

Case UCase("RPT15") 
Listl .Addltem Forml . Label 24 . Caption 

Case UCase ("RPTIS") 
List 1 . Addltem Forml . Label25 . Caption 
Case UCase ( "RPT17 " ) 

Listl .Addltem Forml . Label 2 6 . Caption 
Case UCase ("RPT18") 

Listl .Addltem Forml . Label 2 7 . Caption 
Case UCase ( "RPT19 " ) 

Listl .Addltem Forml ,Label2 8 . Caption 
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Case UCase ("RPT20" ) 
Listl .Addltem FcrnM .Label 2 9. Caption 

Case UCase ( "RPT21" ) 
Listl .Addltem Forml . Label3C . Caption 

Case UCase ("RPT22") 
Listl .Addltem Fonr.l . Label31 . Caption 

Case UCase <"RPT23") 
Listl .Addltem Forml . Label3 2 . Caption 

Case UCase ("RPT24") 
Listl -Addltem Forml . Label3 3 . Caption 

Case Else 
Listl. Addltem ReportNameS 
End Select 



Private Sub Form LoadO 
On Error GoTo ErrorHandler t 
Me.LeHc = (Screen. Width - Me. Width) / 2: Me. Top = (Screen .Height - Me. Height) 
2 

Datal .DatabaseName = App.Path & "\ M & gs FileName$ 
ProqramPath.DataField = "DbPath" 

Datal. RecordSource = "Select * from [Preferences] M 
Call GetReportNames 
Exit Sub 
ErrorHandler : 
Select Case Err. Number 



Case 0 

Resume Next 
Case Else 

Rem On Error Resume Next 

MsgBox Err. Number & "Load Error Number" 

Resume Next 
End Select 



ReportName$ - 
I 



ii n 



reset reportName$ to nothing 



Next 
End Sub 



End Sub 

Private Sub Listl DblClickO 
CmdLoad. Value = True 
End Sub 
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Option Explicit 

Private Sub CmdCancel_Click ( ) 

Unload FrmSearch 

End Sub 

Private Sub CmdFirst Click () 
Dim MyCriteria As String 
Forml . Datal . Recordset . MoveFirst 
Forml . Data2 . Recordset . MoveFirst 

MyCriteria » gs FieldName$ & " like " & "'*" & txtSearch. Text & ,, * ,,, 
Forml . Datal . Recordset . FindFirst MyCriteria 
If Forml. Datal. Recordset. NoMatch Then 

MsgBox "Term not found in search." 

End If 
End Sub 

Private Sub CmdNext Click{)' 
Dim MyCriteria As String 

MyCriteria » qs FieldName$ & " like M & »**" & txtSearch. Text & ' , *'" 
Forml . Datal . Recordset . FindNext MyCriteria 
If Forml. Datal. Recordset. NoMatch Then 

MsgBox "Term not found in search." 

End If 
End Sub 

Private Sub Form LoadO 

Me. Left = (Screen. Width - Me. Width) / 2 
Me. Top = (Screen. Height - Me. Height) / 2 
End Sub 
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Option Explicit 

Private Sub CmdCancel_Click( ) 

Unload GotoDoc 

End Sub 

Private Sub CmdFirst Click () 

Dim MyCriteria As String 

Rem Forml . Dat al . Recordset . MoveFirst 

MyCriteria « qs FieldName$ & " like " & n ' * M & txtSearch . Text & "*'" 
Forml . Datal . Recordset . FindFirst MyCriteria 
If Forml. Datal. Recordset. NoMatch Then 

MsgBox "Term not found in search." 

End If 
End Sub 

Private Sub Form LoadO 
Me. Left = (Screen. Width - Me. Width) / 2 
Me. Top » (Screen. Height - Me. Height) / 2 
End Sub 



-38- 



WO 98/18092 



PCT/US97/18935 



Modulel - 1 

Public gs FieldName$ 

Public gs FileName$ 

Public CurrentDislc As Variant 

Public DiskNum As Variant 

Public MyCriteria As String 
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frmlmage Viewer - 1 



'Document Image Viewer - Doc I . V. 

• Copyright (c) 1996, Tempest Software Inc. 

Option Explicit 

Pr^vate A Declare Function WritePrivateProf ileStrinq Lib "Kernel" (ByVal lpApplica 

tionName As String, IpKeyName As Any, IpString As Any, ByVal lplFileName As Strx 

nq) As Integer 

Dim slmqFileName As String 

Dim iNumOfPages As Integer 

Dim iCurrentPage As Integer 

Dim iQualityFactor As Integer 

'General Constants 

Const SCROLL BAR - 250 

Const PROGRAM NAME = "Doc I.V." 

'VisualBasic Constants 

Const OFN H I DEREADONLY = &H4& 

Const PD PRINTSETUP = &H40& 

•71.13 Constants 

Const VX FULLIMAGE - 0 

Const VX 200MIN » 1 

Const VX ZOOMRECT » 3 

Const VX STARTPRINT = 5 

Const VX PRINT « 6 

Const VX ENDPRINT » 7 

Const VX MARKHOLLOW - 2 

Const VX MAGNIFIER - 3 

Const VX NONE - 0 

Const VX HORIZONTAL = 1 

Const VX VERTICAL = 2 

Const VX BOTH - 3 

Const VX BESTFIT - 1 

Const VX FULLWIDTH « 2 

Const VX FULLHEIGHT « 3 

•TMS Error Constants 

Const ERR BADFILENAME « 2 0000 

Const ERR BADPROPVALUE = 20001 

Const ERR NOIMAGE = 20002 

Const ERR NOPR INTER - 20003 

Const ERR GETPALETTE « 20004 

Const ERR INTERROR = 20005 

Const ERR BADDC = 2 0006 

Const ERR BAD WINDOW = 20500 

Const ERR CLIPBOARD ERROR =2 0501 

Const ERR BITMAP ERROR = 20502 

Const ERR NO PRINTER = 20503 

Const ERR NO GRAPHICS = 20504 

Const ERR PRINT ABORTED * 20505 

Const ERR BAD PAGENUM = 20506 

Const ERR PRINT BUSY = 20507 

Const ERR BAD PERCENT « 20508 

Const ERR NO RECT = 20509 

Por.Pt 'RR CANT ZOOM « **??10 

Const ERR CANT SCROLL « 20511 

Const ERR NO MEMORY * 20512 

Const ERR_BADJPARM = 20513 

Private Sub exitProgramO 

Call pref erencesSave 

Unload frmlmageViewer 
End Sub 

Private Sub fileOpenO 
On Error Resume Next 
frmlmageViewer .vdVBX. Visible « False 
frmlmageViewer .vdVBX.fi lename = sImgFileName$ 
iNumOf Pages % « vdVBX. Pages 
iCurrentPage% = vdVBX.Page + 1 
HScrolll. Value » 0 
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f rmlmageViewer - 2 

Select Case iNumOfPages% 
Case 0 

HScrolll. Visible = False 

MsgBox "The specified file name is" & Chr(10) & "either not a valid file n 
ame, " & Chr(10) & "or is not in an accepted image format. 0, "Error loading fi 
le. " 

f rmlmageViewer .Caption = PROGRAM_NAME 
Exit Sub 
Case 1 

HScrolll. Visible = False 

f rmlmageViewer. Caption » f rmlmageViewer .CMDialogl . FileTi tie 
Case Else 

HScrolll. Visible « True t 

f rmlmageViewer. Caption = frmlmageViewer . CMDialogl . FileTitle & " Page & 
i Current Page% & " of " & iNumOf Pages % 
End Select 
Call menuEnabled 
Call imageRefresh 
End Sub 

Private Sub Form LoadO 
Call pref erencesLoad 
Call menuDisabled 

f rmlmageViewer .Caption = PROGRAM NAME 
frmlmageViewer. vdVBX. Visible = False 
f rmlmageViewer . vdVBX.MagnifyRatio = 2 
frmlmageViewer. vdVBX. ZoomRatio » 50 
vdVBX.RightMouseStyle = VX MAGNIFIER 
vdVBX. LeftMouseStyle = VX_ MARKHOLLOW 
HScrolll. Visible = False 
If gFileName$ <> " " Then 

sImgFileName$ = gFileName$ 

Call fileOpen 
End If 
End Sub 

Private Sub Form Resize () 
On Error Resume Next 
frmlmageViewer .vdVBX. Visible - False 
vdVBX. Width « frmlmageViewer .ScaleWidth 
vdVEX. Height ~ frmlmageViewer . ScaleHeighL - vdVBX.Top 
HScrolll. Left = 20 

HScrolll. Top = frmlmageViewer. ScaleHeight - HScrolll .Height - 217 
Call imageRefresh 
End Sub 

Private Sub Form Unload (Cancel As Integer) 

Call exit Program 
End Sub 

Private Sub HScrolll Change () 
On Error Resume Next 
HScrolll = iNumOfPagcc • 1 

HScrolll. Min * 0 

frmlmageViewer .vdVBX. Visible » False 
frmlmageViewer. vdVBX. Page = HScrolll .Value 
iCurrehtPage » HScrolll .Value +1 

frmlmaqeViewer. Caption = frmlmageViewer . CMDialogl . FileTitle & " Page " & iC 
urrentPaqe% & " of " & iNumOfPages% 

Call imageRefresh 
End Sub 

Private Sub imageRefresh ( ) 
On Error Resume Next 

If mnuPref erencesFitHeight .Checked = True Then 

frmlmageViewer .vdVBX. Images caleHeight = vdVBX. Height - SCROLL_BAR 
Elself mnuPref erencesFitWidth. Checked = True Then 

frmlmageViewer .vdVBX. ImageScaleWidth = vdVBX. Width - SCROLL^ BAR 
End If 
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frmlmageViewer.vdVBX. ImageScaleLef t » 0 
f rm I maqe Viewer . vdVEX . InaqeScalcTcp « 0 
frmlmageViewer.vdVBX. Visible = True 
Call menuPageCheck 
f rmlmageViewer . vdVBX . Set Focus 
End Sub 

Private Sub menuDisabled ( ) 

mnuFilePrint .Enabled =» False 

mnuPageNext .Enabled = False 

mnuPagePrevious . Enabled = False 

mnuPageFirst .Enabled » False 

mnuPageLast .Enabled » False 

mnuPageGoto. Enabled « False 

mnuZobmZoomln. Enabled = False 

mnuZoomZoomOut . Enabled '= False 

mnuEf feet sRotateC. Enabled « False 

mnuEf fectsRotateCC. Enabled = False 

mnuEff ectsRotaLelmageFiip . Enabled = False 

mnuEf f ectsRotateReset . Enabled = False 

mnuEf f ectsMirrorH. Enabled = False 

mnuEf f ectsMirrorV. Enabled « False 

mnuEf f ectsMirrorBoth. Enabled = False 

mnuEf feet sMirrorReset. Enabled - False 

mnuPreferencesInvertColors. Enabled = False 
End Sub 

Private Sub menuEnabled () 

mnuFilePrint .Enabled » True 

mnuPageNext .Enabled = True 

mnuPagePrevious. Enabled = True 

mnuPageFirst .Enabled = True 

mnuPageLast .Enabled = True 

mnuPageGoto. Enabled = True 

mnuZobmZoomln. Enabled = True 

mnuZoomZoomOut .Enabled = True 

mnuEf f ectsRotateC. Enabled = True 

mnuEf fectsRotateCC. Enabled = True 

mnuEf feet sRotatelmageFlip. Enabled = True 

mnuEff ectsRotateReset .Enabled = True 

mnuEff sctsMirrcrll. Enabled ^ True 

mnuEff ectsMirrorV. Enabled = True 

mnuEff ectsMirrorBoth. Enabled = True 

mnuEff ectsMirrorReset . Enabled = True 

mnuPreferencesInvertColors .Enabled = True 
End Sub 

Private Sub menuPageCheck ( ) 

If vdVBX. Pages = 0 Then Exit Sub 
■ check for page numbers if only one page disable all pageroutines 
If vdVBX. Pages = 1 Then 

mnuPageNext .Enabled = False 

^nuPa^s Pre vi ous . Enabled - Falss 

mnuPageFirst. Enabled = False 

mnuPageLast . Enabled » False 

mnuPageGoto. Enabled = False 

Exit Sub 
End If 
'check for 1st page 

If HScrol 11. Value <= 0 Then 

mnuPagePrevious. Enabled = False 

mnuPageFirst . Enabled = False 

mnuPaqeNext .Enabled = True 

mnuPageLast .Enabled = True 
Elself HScrolll. Value = (iNumOf Pages - 1) Then 

mnuPagePrevious .Enabled =* True 

mnuPageFirst .Enabled = True 

mnuPageNext .Enabled = False 

mnuPageLast .Enabled = False 
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Else 

rrr.uPaqe Previous .Enabled « True 
mnuPaqe First .Enabled = True 
mnuPaqeNext .Enabled = True 
mnuPageLast . Enabled = True 

End If 
End Sub 

Private Sub mnuEf f ectsMirrorBoth Click () 
Select Case f rmlmage Viewer .vdVBX. Mirror 
Case VX NONE 

frmlmageViewer .vdVBX. Mirror - VX_BOTH 
Case VX BOTH 

frmlmageViewer .vdVBX. Mirror = VX NONE 
Case VX VERTICAL 

f rmlmaqeViewer. vdVBX. Mirror = VX HORIZONTAL 
Case VX HORIZONTAL 

f rmlmaqeViewer. vdVBX. Mirror = VX_VERTICAL 
End Select: 
imaqeRe fresh 
End Sub 

Private Sub mnuEf f ectsMirrorH Click () 

Select Case f rmlmage Vie we r.vdVBX. Mirror 
Case VX NONE 

frmlmaqe Viewer. vdVBX. Mirror « VX HORIZONTAL 
Case VX HORIZONTAL 

f rmlmaqeViewer. vdVBX. Mirror » VX NONE 
Case VX BOTH 

f rmlmaqeViewer. vdVBX. Mirror » VX VERTICAL 
Case VX VERTICAL 

f rmlmaqe Viewer. vdVBX. Mirror = VX_BOTH 
End Select 
imaqeRef resh 
End Sub 

Private Sub mnuEf f ectsMirrorReset Click () 
f rmlmaqeViewer. vdVBX. Mirror = VX_NONE 
imaqeRef resh 

End Sub 

Private Sub mnuEf f ectsMirrorV Click () 

Select Case f rmlmage Viewer .vdVBX .Mirror 
Case VX NONE 

f rmlmaqeViewer. vdVBX. Mirror = VX VERTICAL 
Case VX VERTICAL 

f rmlmaqeViewer .vdVBX. Mirror = VX NONE 
Case VX BOTH ~~ 

f rmlmaqeVi ewer. vdVBX. Mirror = VX HORIZONTAL 
Case VX HORIZONTAL 

f rmlmaqeViewer. vdVBX. Mirror » VX_BOTH 
End Select 
i tt. £.3 e Rs f r c £ h 
End Sub 

Private Sub mnuEf f ectsRotateC Click () 

Select Case frml mage Viewer .vdVBX. Rot at ion 
Case 0 

frmlmageViewer .vdVBX. Rotation = 90 
Case 90 

frmlmageViewer .vdVBX. Rotation = 180 
Case ICO 

frmlmageViewer .vdVBX. Rot at ion = 270 
Case 270 

frmlmageViewer .vdVBX. Rotation = 0 
End Select 
imaqeRef resh 
End Sub 
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Private Sub mnuEf f ectsRotateCC Click () " ' 

Select: Case f rmlmage Viewer .vdVBX. Rot at ion 
Case 0 

frmlmageViewer .vdVBX. Rotation * 270 
Case 90 

frmlmageViewer .vdVBX. Rot at ion = 0 
Case 180 

f rmlmage Vie we r.vdVBX. Rotation « 90 
Case 270 

frmlmageViewer .vdVBX. Rotation » 180 
End Select 
imageRef resh 
End Sub 

Private Sub mnuEf f ectsRotatelmageFlip Click () 
Select Case f rml mage Viewer .vdVBX . Rotation 
Case 0 

f rmlmage Viewer .vdVBX. Rotation » 180 
Case 90 

f rml mage Viewer .vdVBX. Rotation « 270 
Case 180 

frmlmageViewer. vdVBX. Rotation = 0 
Case 270 

f rml mageViewer.vdVBX. Rotation » 90 
End Select 
imageRef resh 
End Sub 

Private Sub mnuEf f ectsRotateReset Click 0 

frmlmageViewer .vdVBX. Rotation » 0 

imageRef resh 
End Sub 

Private Sub mnuFileExit_Click ( ) 

Call exit Program 
End Sub 

Private Sub mnuFileOpen Click () 
On Error GoTo loadError 
f rmlmage Viewer .vdVBX. Visible = False 
frmlmaqeViewer.KScrolll. Visible = False 
frmlmageViewer. Caption « PROGRAM NAME 
frmlmageViewer. CMDialogl . CancelError = True 
frmlmageViewer .CMDialogl .DialogTitle = "Open Image File" 
frmlmageViewer .CMDialogl .Flags *» OFN HIDEREADONLY 

frmlmageViewer. CMDialoql. Filter = "All Images (* .*) I * .bmp;* .jpg;* .pcx; * . tif 
JPEG files (*.jpg)l *.ipg'|PCX files (*.pcx) |*.pcx | TIFF files (*.tif) | *.tif 
Windows Bitmap (*.bmp) t*.bmp " 

frmlmageViewer . CMDialogl . Filterlndex = 1 

frmlmageViewer. CMDialogl .Action » 1 

slmgFileNameS = frmlmageViewer .CMDialogl . filename 

f rmlmage Viewer .vdVBX. Quality = iQualityFactor% 

C?1.1 ^leOpsn 

Exit Sub 
loadError: 

frmlmageViewer .Caption » PROGRAM_NAME 

Exit Sub 
End Sub 

Private Sub mnuFilePrint Click () 

vdVBX. PrintStyle = VX FULL I MAGE 

vdVBX. Action - VX STARTPRINT 

vdVBX.Action » VX PRINT 

vdVBX. Action = VX_ENDPRINT 
End Sub 

Private Sub mnuFilePrintSetup_Click{ ) 
Dim CancelFlag As Integer 
Cancel Flag = True 
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On Error Resume Next 
CMDialogl .CancelError = True- 
CMDialoql. Flags = PD_PRINTSETUP 
CMDialoql .Action = 5 
If (Err = 0) Then 

CancelFlag = False 
End If 

If (CancelFlag = True) Then Exit Sub 
End Sub 

Private Sub mnuHelpAbout_Click ( ) 

Load frmAbout 

frmAbout .Show 1 

f rml mage Viewer . Show 
End Sub 

Private Sub mnuPageFirst_Click { ) 

HScrolll. Value = 0 
End Sub 

Private Sub mnuPaqeGoto_Click ( ) 

Load frmGotoPaqe 

f rmGotoPage . Show 1 
End Sub 

Private Sub mnuPaqeLast Click 0 

HScrolll. Value = vdVBX. Pages - 1 
End Sub 

Private Sub mnuPageNext Click () 

HScrolll .Value = HScrolll .Value + 1 
End Sub 

Private Sub mnuPagePrevious ClickO 

HScrolll. Value = HScrolll .Value - 1 
End Sub 

Private Sub mnuPref erencesFitHeiqht ClickO 
mnuPref erencesFitHeiqht .Checked = True 
mnuPref erencesFitWidth. Checked « False 
Call imageRefresh 

End Sub 

Private Sub mnuPref erencesFitWidth ClickO 
mnuPref erencesFitHeiqht .Checked = False 
mnuPref erencesFitWidth. Checked = True 
Call imageRefresh 

End Sub 

Private Sub mnuPref erencesImageQualityHigh_Click ( ) 
iQualityFactor% = 10 

mnuPref erencesImaqeQualityLow. Checked = False 
mr.uPr^f crericesJrr.aqeQu^lityMediur.. Chcckcc « F^Igc 
mnuPref erencesImaqeQualityHigh. Checked = True 
vdVBX. Quality = iQualityFactor% 
End Sub 

Private Sub mnuPref erencesImageQualityLow_Click O 
iQualityFactor% = 0 

mnuPref erencesImaqeQualityLow. Checked = True 
mnuPref erencesImaqeQualityMedium. Checked = False 
mnuPreferencesImaqeQualicyHiqh. Checked = False 
vdVBX. Quality = iQualityFactor% 
End Sub 

Private Sub mnuPref erencesImageQualityMedium_Click ( ) 
iQualityFactor% =5 

mnuPref erencesImaqeQualityLow. Checked = False 
mnuPref erencesImageQualicyMedium. Checked = True 
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mnuPref erencesImageQualityHigh. Checked = False 
vdYBM . Quality -= iQualityFactor% 
End Sub 

Private Sub mnuPref erencesInvertColors Click 0 
If frmlmaqeViewer.vdVBX. Invert = True Then 
f rmlmageViewer .vdVBX. Invert = False 

f rmlmageViewer. mnuPref erencesInvertColors. Checked = False 
Else 

f rmlmageViewer. vdVBX. Invert = True . , 

f rmlmageViewer. mnuPref erencesInvertColors. ChecKed = True 

End If 
End Sub 

Private Sub mnuZoomZoomIn_Click ( ) 

Call zoomln 
End Sub 

?i i vate Sub mnu2oom2oomOut_Click ( ) 

Call zoomOut 
End Sub 

Private Sub Dref erencesLcad { ) 

f rmlmageViewer .Lef t = gFormLeftS 
f rmlmageViewer .Top = gFormTopfc 
f rmlmageViewer . Width = gFormWidthfc 
frmlmaaeViewer. Height = gFormHeight& 
If InStr (gFitWidthi?, "TRUE" ) Then 

mnuPref erencesFitHeight .Checked = False 

mnuPref erencesFitWidth. Checked = True 
Else 

mnuPref erencesFitHeight .Checked = True 
mnuPref erencesFitWidth. Checked = False 
End If 

Select Case gQualityFactor% 
Case 0 

mnuPref erencesImageQualityLow . Checked = True 
mnuPref erencesImageQuaiinyMedium. Checked = False 
mnuPref erencesImageQualityHigh. Checked = False 
iQuaiityFacnor% = 0 

mnuPref erencesImageQualityLow . Checked = False 
mnuPref erencesImageQualityMedium. Checked = True 
mnuPref erencesImageQualityHigh. Checked = False 
iQuaiityFactor% = 5 
Case 10 

mnuPref erencesImageQualityLow. Checked = False 
mnuPrererencesImaaeQualityMedium. Checked = False 
mnuPref erencesImageQualityHigh. Checked = True 
iQuaiityFactor% = 10 
End Select 
End Sub 

Private Sub pref erencesSave ( ) 
•On Error Resume Next 
Dim iRet% 
Dim sSeccionS 
Dim sEntry$ 
Dim sValue$ 
Dim sFileName$ 

If Right (App. Path, 1) = "\" Then 

sFileName$ = App. Path * "dociv.ir.i" 
Else 

sFileName$ = App. Path & "\" & "dociv.im" 
End If 

sSection$ = "Form Position" 

sEntry$ = "Form Width" 

sValue$ = Str (frmlmaqeViewer. Width) 

iRet = WritePrivateProf ileString (ByVal sSection, ByVal sEntry, ByVal sValue, 
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3yVal sFileName) 

sEntryS = "Form Height" 

sValue$ = Str (frmlmageViewer .Height) p vV al sEntrv, 3vVal sValue, 

iRet = WritePrivateProfileString(ByVal sSection, ByVal sentry, ayvai 

ByVal sFileName) 

sEntry$ = "Form Left" 

sValue$ = Str (frmlmageViewer. Left) cC „ Mon B Wal sErxry, 3yVal sValue, 

iRet = WritePrivateProfiieString(ByVal sSection, ayvai y 

3yVal sFileName) 

sEntry$ = "Form Top" 

!2i U :%;ilSii™5^filSwS(ByV.l .S.«ion, ByVal .Entry. ByVal sValue, 

ByVal sFileName) 

sSection? = "Preferences" 

sEntry$ = "Fit Width" . ^ ^ or , 

If mnuPreferencesFitWidth. Checked = True ihen 

sValue$ = "TRUE" 

Else 

3Value$ = " FALSE" 

?Ret X = WritePrivateProfileString (ByVal sSection, ByVal sEntry. ByVal sValue, 

3yVal sFileName) 

sEntry$ = "Imaqe Quality" 

sValue? = Str ( iQuaiityFactcr%) , e c„ r ^ Qn a vVa l sEr.trv, 3yVal sValue, 

iRet = WritePrivateProfileString (ByVal sSection, -yvdi L1 * Y ' * 

3yVal sFileName) 
End Sub 

Private Sub vdVBX Status (Index As Integer, Status As Integer, Value As Long) 
On Error Resume Next _ 
If frmlmageViewer. vdVBX. Marked = True Then 
frmlmageViewer. vdVBX. Act ion - VX_ZOOMRr-C, 

End If 
End Sub 

Private Sub zoomlnO 

On Error Resume Next 

frmlmageViewer. vdVBX.ZoomRatio = 5 0 

frmlmageViewer. vdVBX. Action - VXJZOOMIN 
End Sub 

Private Sub zoomOutO 
On Error Resume Next 

frmlmaaeViewer .vdVBX.ZoomRatio = 

frmlmageViewer. vdVBX. Action = 2 'VX_ZOOMOUT 
End Sub 
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Option Explicit 
Deflnt A-Z 

Private Declare Function GetPrivateProf ileString Lib "Kernel" (ByVal lpApplicati 
onName As String, lpKeyName As Any, ByVal lpDefault As Strir.c, ByVal lpReturnedS 
tring As String, ByVal nSize As Integer, ByVal IcFileName As String) As Integer 

Private Sub displayText ( ) 
FontSize = 100 

frmlntro.CurrentX = 22: f rmlntro . Current Y = 52 
ForeColor * QBColor(8) 
Print "Doc I .V. " 

frmlntro.CurrentX * 20: rrmlntro. Cur rent Y = 50 
ForeColor « QBColor(lS) 
Print "Doc I .V. " 

frmlntro.CurrentX = 21: frmlncro. Current Y = 51 

ForeColor = QBCoIor(7) 

Print "Doc I.v." 

< ***************************** 

FontSize = 18 

frmlntro.CurrentX = 72: f rmlntro, Current Y = 202 
ForeColor = QBColor(8) 

Print "The Multiple Format Imaae Viewer" 
rrmlntro. CurrentX * 70: f rmlntro. Current Y = 200 
ForeColor = QBColor(lS) 

Print "The Multiple Format Image Viewer" 
frmlntro.CurrentX = 71: f rmlntro . Current Y = 201 
ForeColor » QBColor(7) 

Print "The Multiple Format Image Viewer" 
i ***************************** 

frmlntro.CurrentX = 17: f rmlntro. Current Y = 302 
ForeColor = QBColor(8) 

Print "Doc IV, CoDyright (c) 1996, Temoest Software" 
frmlntro.CurrentX = 15: f rmlntro . Current Y = 300 
ForeColor = QBColor(lS) 

Print "Doc IV, Copyright (c) 1996, Temoest Software" 
rrmlntro. CurrentX = 16: f rmlntro. CurrentY = 301 
ForeColor = QBColcr(7) 

Print "Doc IV, Cooyrictht ic) 1996, Tempest Software" 
End Sub 

Private Sub exitSplashScreen ( ) 

f rmlmaqeViewer . Show 

f rmlntro. Hide 

Unload f rmlntro 
End Sub 

Private Sub Form Click () 

exitSplashScreen 
End Sub 

Private Sub Form KeyPress (KeyAscii As Integer) 
exitSplashScreen 

IrA =\\b 

Private Sub Form LoadO 
On Error Resume Next 

frmlntro.Lef t = (Screen. Width - f rmlntro . Width) / 2 

frmlntro.Top = (Screen . Height - f rmlntro . Keiaht ) / 2 

Call oreferencesCheck 

gFileName$ = Commands 

Load f rmlmacre Viewer 

If gFileName$ <> " *■ Then 

Load f rmlmageViewer 

Call exitSplashScreen 
End If 
End Sub 

Private Sub Form Paint 0 
Call displayText 
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frmlntro - 2 
End Sub 

Private Sub pref erencesCheck ( ) 
Dim sFileName$ 
Dim sSeccion$ 
Dim sKeyNameS 
Dim sDefault$ 
Dim sRecurn$ 
Dim iReturnSize% 
Dim i Ret urn % 

If Riqht (App.Path, 1) = "\" Then 

sFileName$ = App.Path U "dociv.ini" 
Else 

sFileNameS » ADp.Path & "\" & "dociv.ini" 
End If 

sSectionS = "Form Position" 
sRe turr.S = Space$(10) 
iReturnSize% » 10 
sKeyNan:e3 = "Term Meiqh"" 
sDefaulnS = Str (Screen. Keiaht ) 

iReturn% = GetPrivateProf ileStrinq (ByVal sSectionS, 3yVal sKeyNameS, sDefault 
$ ( sReturnS, iReturnSize% , 3yVai sFileNameS) 
qFormHeiqht& = Val (sReturnS ) 
sKeyNameS = "Form Width" 

sDefaultS = Str (Screen. Width) , _ . 

iReturn% = GetPrivateProf ileStrinq (ByVal sSectionS, ByVal sKeyNameS, sDeiau.it 
$, sReturnS, iReturnSize% , ByVal sFileNameS) 
qFormWidchfie - Val (sReturnS ) 
sKeyNameS = "Form Left" 

sDefaultS = "0" c , 

iReturn% = GetPrivateProf ileStrinq (ByVal sSectionS, ByVai sKeyNameS, sDefault 
$, sReturr.S, iReturnSize% , ByVal sFileNameS) 
qFormLeftfic = Val (sReturnS ) 
sKeyNameS = "Form Tod" 

sDefault$ = "0" , _ _ _ 

iReturn% = GetPrivateProf ileStrinq (ByVal sSectionS, ByVai sKeyNameS, sDefault 
$, sReturr.S , iReturnSize% , BvVal sFileNameS) 
qFormTopfit = Val ( sReturn$ ) " 
sSectionS = "Preferences" 
sKeyNameS = "Fit Width" 
sDefault'" 1 = "TRUE" 

iReturnV = GetPrivateProf j leStrinq (ByVal sSectionS, 3yVai sKeyNameS, sDefault 
$, sReturr.S, iReturnSize% , ByVal sFileNameS) 
qFitWidth$ = sReturn$ 
sKeyNameS = "Image Quality" 
sDefaultS a "5" 

iReturn% = GetPrivateProf ileStrinq (ByVal sSectionS, ByVal sKeyNameS, sDefault 
$, sReturnS, iReturnSize% , 3yVal sFileNameS) 

qQualityFac!:or% = Val (sReturn$) 
' sKeyName$ = "Start Ud Screen" 

sDefaultS = "TRUE" " , . 

iReturn% = GetPrivateProf ileStrinq (ByVal sSectionS, ByVal sKeyNameS, sDefaul 
r s sReturnS, iP.eturnSize^ , ByVnl sFiicn^T.^ ^ ) 
' qStartUpScreen$ = sReturnS 

If InStr (qStartUpScreen$, "FALSE") Then 
■ Load f rmlmaqeViewer 

1 Call exitSplashScreen 

End If 
End Sub 

Private Sub Timerl Timer () 

exitSplashScreen 
End Sub 
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frmGotoPage 



Option Explicit 
Deflnt A-Z 

Dim iPageNumber As Integer 

Private Sub cmdOK Click 0 

If iPageNumber > 0 Then 

fnnimageViewer.HScrolll .Value 

End If 

f rmGotoPaqe . Hide 

Unload frmGotoPage 
End Sub 

Private Sub Form LoadO 

f rmGotoPaqe. Left = (Screen . Width - 
frmGotoPaqe.Top = (Screen . Height - 
IblNumOf Pages. Caption = "There are 

n this file. « 

End Sub 



iPageNumber 



frmGotoPage. Width) / 2 

f rmGotoPaqe. Height) / 2 

" Sc f rmlmageViewer .vdVBX. Pages & 



pages 



Private Sub -.xtGotoPaqe Change ( ) 

' this must only be a number and it must be > 

On Error Resume Next 

iPageNumber « txtGotoPage . Text 
End Sub 



0 Sc < total number of pages 



frmAbout - 1 

Option Explicit 
Deflnt A-Z 

Private Sub cmdOK_Click ( ) 

frmAbout .Hide 

Unload frmAbout 
End Sub 

Private Sub Form LoadO ri ^»-v\ / o 

frmAbout. Left = (Screen . Width - rrmAbout . Wxdtn) / 2 
frmAbout, Top = (Screen . Height - rrmAoout . neignt ) / 2 

End Sub 



GLOBALS - 1 

Option ExDlicit 
Global qFormWidthSc 
Global gFormHeiqht& 
Global qFormLeftSc 
Global gFormTopfc 
Global qFitWidth$ 
Global gQualityFactor% 
"Global gFileName$ 
'Global gStartUpScreen$ 



-50- 



WO 98/18092 



PCT/US97/18935 



X:\PCHASER\NATIONAL.MDB 
Form: Main 



Tuesday, October 21. 1997 
Page: 38 



Text Align: 
Visible: 



General 
Yes 



Top: 
Width: 



3120 
1149 



Code 

1 Option Compare Database 'Use database order for string comparisons 
2 

3 Sub Button23_Click () 

4 On Error GoTo Err_Button23_Click 
5 

6 Dim DocName As String 

7 Dim LinkCriteria As String 
8 

9 DocName «= "Forml" 

10 DoCmd OpenForm DocName, , , LinkCriteria 
11 

12 Exit_Button23_Click: 

13 Exit Sub 
14 

15 Err_Button23_Click: 

16 MsgBox Error $ 

17 Resume Exit_Button23_Click 
18 

19 End Sub 
20 

21 Sub Exhibit s_Click {) 

22 On Error GoTo Err_Exhibits_Click 
23 

24 Dim DocName As String 

25 Dim LinkCriteria As String 
26 

27 DocName - "Exhibit List" 

28 DoCmd OpenForm DocName, , , LinkCriteria 
29 

30 Exit_Exhibits_Click: 

31 Exit Sub 
32 

33 Err_Exhibits_Click: 

34 MsgBox Error $ 

35 Resume Exit_Exhibits_Click 
36 

37 End Sub 
3B 

39 Sub Form_GotFocus O 

40 DoCmd Maximize 

41 End Sub 
42 

43 Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As 
Single) 

44 Me. width - screen* width 
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45 Me. height « screen .height 

46 Me. left = (screen. width - Me. width) - 2 

47 Me. Top » (screen. height - Me. height) - 2 
46 End Sub 

49 

50 Sub FormJiouseUp (Button As Integer, Shift As Integer, X As Single, X As Single) 

51 Me. width - screen. width 

52 Me. height » screen. height 

53 Me. left - 0 

54 Me. Top = 0 

55 End Sub 
56 

57 Sub FormjOpon (Cancel As Integer) 

58 ah tAccessSysteml terns False, True, True 

59 End Sub 
60 

61 Sub Report_Menu_Click ( ) 

62 On Error CoTo Err_Report_Menu_Click 
63 



64 Dim DocName As String 

65 Dim LinkCriteria As String 
66 

67 DocName » "Print Menu" 

68 DoCmd OpenForm DocName, , # LinkCriteria 
69 

70 Ex i t_Rep or t_Me nu_C lick: 

71 Exit Sub 
72 

73 Err_Report_MerMi_Cliok : 

74 MsgBox Error$ 

75 Resume Exit_Report_Menu_Click 



76 

77 End Sub 
78 

79 Sub Reports_Menu_Click () 

80 On Error GoTo Err_Reports_Menu_Click 
81 

82 Dim DocName As String 

83 Dim LinkCriteria As String 
84 

85 DocName = "Print Menu" 

66 DoCmd OpenForm DocName, , , LinkCriteria 

87 

8 B Exi t_Repor ts_Menu_Click : 

89 Exit Sub 

90 

91 Err^Reports^Menu^Click • 

92 MsgBox Error$ 

93 Resume Exit_Reports_Menu_Click 
94 

95 End Sub 
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X:\PCHASER\NATIONALMDB 
Form: Main 

96 

97 Sub Text_Search_Click () 
9B Dim ISYS$, X% 
99 ISYS « DLookupC'IsysPath*' , "Preferences") 

100 ISYS - "C:\ISYS\IQW.EXE /Z /D«" + ISYS 

101 X «= Shell (ISYS, 1) 

102 End Sub 
103 

104 Sub Trans cript_Click () 

105 On Error GoTo ErrJTrans crip t_C lick 
106 

107 Dim X As Integer 

108 Dim AppName As String 
109 

110 AppName - »C : \ACCESS\SUMCLONE.EXE" 

111 X » Shell (AppName , 1) 
112 

113 Exit_Transcript_Click: 

114 Exit Sub 
115 

116 Err_Transcript_Click: 

117 MsgBox Error$ 

118 Resume Ex±t_Transcript_Click 
119 

120 End Sub 
121 

122 Sub Trans cript_Search_Click () 

123 On Error GoTo Err_Transcript_Search_Click 
124 

125 Dim X As Integer 

126 Dim AppName As String 
127 

128 AppName = "SUMCIiONE.EXE" 

129 X = Shell (AppName , 1) 
130 

131 Exi t_Tr ans crip t_Search_Click : 

132 Exit Sub 
133 

134 Err_Tranacript_Search_Click : 
lib MsgBox Error $ 

136, Resume Exi t_Tr ans crip t_Search_Click 

137 

138 End Sub 
139 

140 Sub Trans crip ts_Click () 

141 On Error GoTo Err_Transcripts_Click 
142 

143 Dim X As Integer 

144 Dim AppName As String 
145 

146 AppKama - "SUMCLOHE.EXE" 
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147 X = SholMAppName, 1) 

146 

149 Exit_Transcripts_Click: 

150 Exit Sub 
151 

152 Erx_Transcripts_Click : 

153 MsgBox Error$ 

154 Re sumo Exit_Transcripts__Click 
155 

156 End Sub 
157 
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Page: 47 



Scroll Bars: 
Special Effect: 
Tab Stop: 
Top: 
Width: 



Yes 

1560 

3600 



None 
Sunken 



Section: 
Tab Index: 
Text Align: 
Visible: 



0 
4 

General 
Yes 



Code 



1 Option Compare Database 'Use database order for string comparisons 
2 

3 Sub Retum_to_System_MenjCliclc () 

4 On Error GoTo Err_Return_to_System_Men_Click 
5 

6 

7 DoCmd Close 

8 

9 Exit_Retum_to_System_Men_Clidc : 
10 Exit Sub 

11 

12 Err_Retum_to_Sy8 tsn_Men_Cli Oc : 

13 MsgBox Error$ 

14 Resume Exit_Return_to_Systeja_Man_Clic)c 
15 

16 End Sub 
17 
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2 8 Exi t_Comments_Click : 

29 Exit Siob 

30 

31 Err_Comments_Click: 

32 MsgBox Error? 

33 Resume Exit_Comments_Click 
34 

35 End Sub 
36 

37 Sub Dat<*_Range_Click () 

38 On Error GoTo Err_Date_Range_Click 
39 

40 Dim DocName As String 
41 

42 DocName « "Date Range" 

43 DoCmd OpenReport DocNamo , A_PREVIEW 
44 

4 5 Exi t_Date_Range_Click : 

46 Exit Sub 

47 

48 Err_ Date_Range_Click : 

49 MsgBox Error$ 

50 Resume ExitJDate_Range_Click 
51 

52 End Sub 
53 

54 Sub Description_Click () 

55 On Error GoTo Err_Description_Click 

57 Dim DocName As String 
58 

59 DocNama « "Search Term in Description" 

60 DoCmd OpenReport DocNama, A_PREVIEW 
61 

62 Exit_Description_Click : 

63 Exit Sub 
64 

65 Err_Description_Click: 

66 MsgBox Error$ 

67 Resume Exi t_Des crip tion_Click 
68 

69 End Sub 
70 

71 Sub Doc Find_Click () 

72 On Error GoTo ErrJDoc Find_ Click 

73 

74 Dim DocName As String 
75 

76 DocName = "Document # Find* 1 

77 DoCmd OpenReport DocName, A_PREVXEW 
78 
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7 9 Exit_Doc Find__Click : 

80 Exit Sub 

81 

8 2 Er r_Doc Find_Click : 

83 MsgBox Error$ 

84 Re sumo Exit_Doc Find_Click 

85 

86 End Sub 
87 

88 Sub Names_Click () 

89 On Error CoTo Err_Name8_Clic)c 
90 

91 Dim DocName As String 
92 

93 DocName *» "Names" 

94 DoCmd OpenReport DocName, A_PREVIEW 
95 

96 Exit_Names_Clic)t: 

97 Exit Sub 
98 

99 Err_Names_Click : 

100 MsgBox Error$ 

101 Resume Exit_Namas__Clicx 
102 

103 End Sub 
104 

105 Sub Seach_From_Click () 

106 On Error CoTo Err_Seach_From M Click 
107 

108 Dim DocName As String 
109 

110 DocName = "Search From" 

111 DoCmd OpenKeport DocName, A — PREVIEW 
112 

113 Exit_Seach_From_Click: 

114 Exit Sub 
115 

116 Err_Seach_Fr om_Click : 

117 MsgBox Error $ 

us Resume Exit_Seach_From_Click 
119 

120 End Sub 
121 

122 Sub Search_CCs_Click () 

123 On Error GoTo Err_SearchjCCs — Click 
124 

125 Dim DocName As String 
126 

127 DocName = "Search CCs" 

128 DoCmd OpenReport DocName, A_PREVTEW 
129 
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181 Exit_Tag_l_Click : 

162 Exit Sub 
183 

184 ErrJTag_l_Cl ick : 

185 MsgBox Srror$ 

186 Resume Exit_Tag_l_Clic)c 
187 

188 End Sub 
189 

190 Sub Tag_10_Clicx () 

191 On Error Go To Err_Tag_10_Click 
192 

193 Dim DocName As String 
194 

195 DocName « "ListlO" 

196 DoCmd OpenReport DocNaae, A_PREVIEW 
197 

198 £xit_Tag_10_Clic)c: 

199 Exit Sub 
200 

201 Errjrag_10_Click: 

202 MsgBox Error$ 

203 Resume Exit_Tag_10_Click 
204 

205 End Sub 
206 

207 Sub Tag_ll_Clic)c () 

208 On Error GoTo Err_Tag_ll_Click 
209 

210 Dim DocName As String 
211 

212 DocName « "Liatll" 

213 DoCmd OpenReport DocName, AJPREVIEW 
214 

215 Exit_Tag_ll_Clicx: 

216 Exit Sub 
217 

218 Err_Tag_ll_Click: 

219 MsgBox Error $ 

220 Resume £xit_?ag_ll_CliOc 
221 

222 End Sub 
223 

224 Sub Tag_12_Clic)c () 

225 On Error GoTo Err_Tag_12_Click 
226 

227 Dim DocName As String 
228 

229 DocName » "Listl2" 

230 DoCmd OpenReport DocName, A_ PREVIEW 
231 
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232 Exit_Tag_12_Click: 

233 Exit Sub 
234 

235 Err_Tag_12_Click : 

236 MsgBox Error$ 

237 Resume Exit_Tag_12_Click 
238 

239 End Sub 
240 

241 Sub Tag_13_Click () 

242 On Error GoTo Err_Tag_13_Click 
243 

244 Dim DocName As String 
245 

246 DocName « "Listl3" 

247 DoCmd OpenReport DocName, A_PREVXEW 
248 

249 Exi t_Tag_l 3_Cli ck : 

250 Exit Sub 
251 

252 ErrJTag_l3_Click : 

253 MsgBox Error $ 

254 Resume Exit_Tag_13_Click 
255 

256 End Sub 
257 

258 Sub Tag_14_ClicJc () 

259 On Error GoTo ErrJTag_14_Click 
260 

261 Dim DocName As String 
262 

263 DocName ° "Listl4" 

264 DoCmd OpenReport DocName, A_PR£VXEW 
265 

266 Exit_Tag_14_Click : 

267 Exit Sub 
268 

269 Err_Tag_14_Click : 

270 MsgBox Error$ 

2)1 Mesume Exit_Tag_ i4_Click 
272 

273 End Sub 
274 

275 Sub Tag_15_Click O 

27 6 On Error GoTo Err_Tag_15_Click 

277 

278 Dim DocName As String 
279 

280 DocName = "Listl5" 

281 DoCmd OpenReport DocName, A_PREVIEW 
282 
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2B3 
284 
285 
286 
287 
288 
289 
290 
291 
?92 



Exit_Tag_15_Click : 
Exit Sub 

Err_Tag_15_Click : 
MagBox Error $ 
He sume Exi t_Tag_15_Cl i ck 

End Sub 



Sub Tag_16_Click () 
293 On Error GoTo Err_Tag_16_Click 
294 

295 Dim DocName As String 

296 

297 DocName o M Listl6" 

298 DoCmd OpenReport DocName, A_PR£VIEW 
299 

300 Exit_Tag_16_Click: 

301 Exit Sub 
302 

303 ErrJTag_16_Clicx : 

304 MsgBox Error$ 

305 Resume Exit_Tag_16_Click 
306 

307 End Sub 
308 

Sub Tag_17_Click () 
On Error GoTo Err Tag 17 Click 



309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 



Dim DocName As String 
DocName « "Listl7" 

DoCmd OpenReport DocName, A_PREVXEW 

Exit_Tag_17_Click : 
Exit Sub 

Err_Tag_17_Click : 
MsgBox Error$ 
Re e use £xit_Tag_17_Click 

End Sub 

Sub Tag_18_Click () 

On Error GoTo Err_Tag_18_Click 

Dim DocName As String 

DocName = M I*istl8" 

DoCmd OpenReport DocName, A_PREVIEW 
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334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

5 .» j 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 



Exit_Tag_18_Click : 
Exit Sub 

Err jrag_18_Click : 
MsgBox Error? 
Resume Exit_Tag_18_ClicJc 

End Sub 

Sub Tag_19_Click () 

On Error GoTo Err_Tag_19_Click 

Dim DocName As String 

DocName = "I*iBtl9" 

DoCmd OpenReport DocName, A__PREVTEW 

Exit_Tag_19_Click : 
Exit Sub 

Err_Tag_19_Click : 
MsgBox Error$ 
Resume Exit_Tag_19_Click 

End Sub 

Sub Tag_2_Click {) 

On Error GoTo £rr_Tag_2_Click 

Dim DocName As String 

DocName = »List02" 

DoCmd OpenReport DocName, A_PREVIEW 

Exit_Tag_2_Clicx : 
Exit Sub 

Err_ Tag_2_Click : 
MsgBox Error? 
Resume B3Cit__Tfcg_2_Click 

End Sub 

Slab Tag_20_Click {) 

On Error GoTo Err_jrag_20_Click 

Dim DocName As String 

DocName « "List20" 

DoCmd OpenReport DocName, A_PREVIEW 
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385 ExitJTag_20_Click: 

3B6 Exit Sub 
3B7 

3B8 ErrJTag_20_Click : 

3B9 MsgBox Error $ 

390 Resume Ex i t_T ag_2 0__C1 i ck 

391 

392 End Sub 
393 

394 Sub Tag_21_Click () 

395 On Error GoTo Err_Tag_21_Click 
396 

397 Dim DocName As String 
398 

399 DocName = "List21" 

400 DoCmd OpenReport DocName , A_PREVIEW 
401 

402 Exit_Tag_21_Click : 

403 Exit Sub 
404 

405 Err_Tag_21_Click: 

406 MsgBox Error$ 

407 Resume Exit_Tag_21_Click 
408 

409 End Sub 
410 

411 Sub Tag_22_Click {) 

412 On Error GoTo Err_Tag_22_Click 
413 

414 Din DocName As String 
415 

416 DocName « "List22 n 

417 DoCmd OpenReport DocName, A_P REVIEW 
41B 

419 ExitJXag_22_Click: 

420 Exit Sub 
421 

422 Err_Tag_22_Click: 

423 MsgBox Error$ 

424 Rosune Exit_Tag_22_CUcJc 
425 

426 End Sub 
427 

428 Sub Tag_23_Click () 

429 On Error GoTo Err_Tag_23_Click 
430 

431 Dim DocName As String 
432 

433 DocName « "l,ist23 M 

434 DoCmd OpenReport DocName, A_PREVIEW 
435 
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436 Exit_Tag_23_Click: 

437 Exit Sub 
438 

439 ErrJTagJ2 3_Click : 

440 MsgBox Error$ 

441 Resume Exit_Tag_23_Click 
442 

443 End Sub 
444 

445 Sub Tag_24_Click () 

446 On Error GoTo Err_Tag_24_Click 
447 

448 Dim DocName As String 
449 

450 DocKame - "List24" 

451 DoCmd OpenReport DocName, A_PREVIEW 
452 

453 Exit_Tag_24_Click: 

454 Exit Sub 
455 

456 Er r_Tag_2 4_Cl i ck : 

457 MsgBox Error $ 

458 Resume Exit_Tag_24_Click 
459 

460 End Sub 
461 

462 Sub Tag_3_Click O 

463 On Error GoTo Err_Tag_ 3_Click 
464 

465 Dim DocName As String 
466 

467 DocName « "List03" 

468 DoCmd OpenReport DocName, A_PREVIEW 
469 

470 Exit_Tag_3_Click: 

471 Exit Sub 
472 

473 Err_Tag_3_Click ; 

474 MsgBox Error $ 

475 Resuma EXit_Tag_3_C licit 
476 

477 End Sub 
47B 

479 Sub Tag_4_Click () 

480 On Error GoTo Err_Tag_4_Click 
461 

462 Dim DocName As String 
483 

484 DocName « «List04» 

485 DoCmd OpenReport DocName, A_PREV2EW 
486 
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487 Exi t_Tag_4_Cli ck : 

468 Exit Sub 
489 

490 Err_Tag_4_Click : 

491 MsgBox Error$ 

492 Resume Exit_JTag_4_Click 
493 

494 End Sub 
495 

496 Sub Tac; 5_Click {) 

497 On Error CoTo Err_Tag_5_Click 
498 

499 Dim DocName As String 
500 

501 DocName » "ListOS" 

502 DoCmd OpenReport DocName, A_PREVIEW 
503 

504 Exit_Tag_5_Click : 

505 Exit Sub 
506 

507 Err_Tag_5_Click : 

508 MsgBox Error$ 

509 Resume Exit_Tag_5_Click 
510 

511 End Sub 
512 

513 Sub Tag_6_Click () 

514 On Error GoTo Err_Tag_6_Click 
515 

516 Dim DocName As String 
517 

518 DocName « "List06" 

519 DoCmd OpenReport DocName, A_PREVIEW 
520 

521 Exit_Tag_6_Click : 

522 Exit Sub 
523 

524 E rr_Tag_6_Cli ck : 

525 MsgBox Error$ 

52 S Resume Exit_Trg_t_C;li£k 
527 

528 End Sub 
529 

530 Sub Tag_7_Click () 

531 On Error GoTo Errjrag_7_Click 
532 

533 Dim DocName As String 
534 

535 DocName « M List07" 

536 DoCmd OpenReport DocName, A_FREVXEW 
537 
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X:\PCHASER\NATIONAL.MDB 
Form: Print Menu 

538 Exi t_Tag_7_Click : 

539 Exit Sub 
540 

541 Err_Tag_7_Click : 

542 MsgBox Error $ 

543 Resume Exit_Tag_7_Click 
544 

545 End Sub 
546 

54*7 Sub Tag_8_Click () 

548 On Error GoTo Err_Tag_8_Click 
549 

550 Dim DocName As String 
551 

552 DocName « "ListOB" 

553 DoCmd OpanReport DocName, A_PR£VIEW 
554 

555 Exit_Tag_8_Click : 

556 Exit Sub 
557 

558 Err_Tag_8_Click: 

559 MsgBox Error$ 

560 Resume Exit_Tag_8_Click 
561 

562 End Sub 
563 

564 Sub Tag_9_Click (J 

565 On Error GoTo Err_JIag_9_Click 
566 

567 Dim DocName As String 
568 

569 DocName » "Iiist09 n 

570 DoCmd OpenReport DocName, A_PREVIEW 
571 

572 Exit_Tag_9_Click: 

573 Exit Sub 
574 

57 5 Err_Tag_9_Click : 

576 MsgBox Error$ 

577 Resume Exit_Tag_9_Click 
578 

579 End Sub 
580 



Tuesday, October 21, 1997 
Page: 83 
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CDINFO.DAT 

An ASCII file used by Paper Chaser when CDs are used. It is set up in 
the following manner. 

"Yes" implied the case uses CDs. 2 is the Length of the image filenam 
e prefix. These are 

both on the first line. Each disk is given its own line. The first nu 
mber is the disk 

number, the second is the starting document number and the third is the 
ending document 

number for the CD. The numbers are separated by commas. CDINFO.DAT mu 

st reside in the case 

directory. 

EXAMPLE 

YES 2 

1, 00001, 05000 

2, 05001, 05799 
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'Option Explicit 
'Deflnt A-Z 

'Allows program to float on top of all programs 

'Private Declare Function SetWindowPos Lib "user" (ByVal h%, ByVal hb%, 
ByVal X%, ByVal Y%, ByVal cx%, ByVal cy%, ByVal f%) As Integer 
'reads ini files 

Private Declare Function GetPrivateProf ileString Lib "Kernel" (ByVal lp 
ApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, 
ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFile 
Name As String) As Integer 

Dim ms_FileSavePath$ 

Dim ms_buttonWithFocus$ 

Dim ms_DataBaseName$ 

Const OFN_ H I DEREADONLY = &H4& 

Private Sub buttonToggle () 
On Error Resume Next 

cmdSave. Enabled = Not cmdSave .Enabled 
cmdScan. Enabled = Not cmdScan, Enabled 
cmdScanSO. Enabled = Not cmdScan90 .Enabled 
cmdScanSave. Enabled = Not cmdScanSave .Enabled 
cmdSetUp. Enabled = Not cmdSetUp. Enabled 
•reset the focus back to the correct button 
Select Case ms_buttonWithFocus$ 
Case "cmdScan" 

cmdScan . SetFocus 
Case n cmdScan90" 

cmdScan90 . SetFocus 
Case "cmdScanSave" 

cmdScanSave . SetFocus 
End Select 

End Sub 

Private Sub chkSaveToDataBase_Click ( ) 
If chkSaveToDataBase. Value = 1 Then 

Call pathlnfo 'gets the DB and paths to save images 
Else 

ms_FileSavePath$ = App.Path 'save images to the default path 
' add 1 \ ' to path if needed 
Jf Righ^ (ms_FileSave??th?. 1) <> "\" Then ms_FileSa"e?3.th? = ms_ 
FileSavePath$ & "\" 

End If 
End Sub 

Private Sub cmdSave_Click ( ) 
On Error GoTo SaveError 

If wmObject.PageCount = 0 Then Exit Sub 

Dim liFages% 

Call buttonToggle 
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Screen. MousePointer = 11 
Load frmDisplay 
frmDisplay. Show 

If chkAutoDeskew. Value = 1 Then Call Deskewlmage 

frmDisplay .Hide 

Unload frmDisplay 

liPages% = wmObject . PageCount 

wmObject. DocumentName « txtPref ix. Text & txtSuf ix . Text 
1 [SaveAsLocal filename, fpage, cpages, fOverwrite] 

wmObject. SaveAsLocal ms_FileSavePath$ & txtPref ix . Text & txtSufix.Te 
xt & " .tif", 1/ liPages%, 1 

If chkSaveToDataBase. Value = 1 Then Call dbWrite 
Call numbersUpdate 

• Close the current document, even if it has been modified but not s 

aved. 

wmObject . CloseDoc 

Screen. MousePointer « 0 

Call buttonToggle 
Exit Sub 
SaveError : 

MsgBox "Error* " & Err. Number & " " & Err . Description 
Resume Next 
End Sub 



Private Sub cmdScan_Click ( ) 

ms_buttonWithFocus$ = "cmdScan" 
Call buttonToggle 
Dim liPages% 

liPages% = wmObject . PageCount 
liPages% = liPages% + 1 

1 [Scan fpage, incrPage, maxPages, flags] 
wmObject . Scan liPages%, 1, -1, 0 

txtBatesENum.Text = Format (Int (txtBatesBNum. Text) + wmObject . PageCou 
nt - 1, "0000000") 

Call buttonToggle 
End Sub 

Private Sub cmdScan90_Click ( ) 

ms_buttonWithFocus$ = "cmdScan90" 
Call buttonToggle 

Dim liP^gcs* 
liPages% = wmObject . PageCount 
liPages% = liPages% + 1 
' [Scan fpage, incrPage, maxPages, flags] 
wmObject .Scan liPages%, 1, -1, 1 

txtBatesENum.Text = Format (Int (txtBatesBNum. Text) + wmObject . PageCou 
nt - 1, "0000000") 

Call buttonToggle 
End Sub 
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Private Sub cmdScanSave_Click () 

ms_buttonWithFocus$ = "cmdScanSave" 

Call buttonToggle 

Screen. MousePointer = 11 

• (Scan fpage, incrPage, maxPages, flags] 

wmObject -Scan 1, 1, 1/ 0 

txtBatesENum.Text = txtBatesBNum. Text 

1 [SaveAsLocal filename, fpage, cpages, fOverwrite] 

If chkAutoDeskew. Value = 1 Then Call Deskewlmage 

wmObject . DocumentName = txtPref ix . Text & txtSuf ix . Text 

wmObject .SaveAsLocal ms_FileSavePath$ & txtPref ix . Text & txtSufix.Te 

xt & ".tif", 1, 1/ 1 

If chkSaveToDataBase. Value « 1 Then Call dbWrite 
Call numbersUpdate 

I Close the current document, even if it has been modified but not s 
aved. 

wmObject .CloseDoc 

Screen. MousePointer = 0 

Call buttonToggle 
Exit Sub 
SaveError : 

MsgBox M Error# " & Err. Number & " " & Err . Description 
Resume Next 
End Sub 

Private Sub cmdSetup_Click ( ) 

' Display the Scanner Setting dialog box 

wmOb j ect . ScanSetup 

Call settingsGet 
End Sub 

Private Sub dbWriteO 
On Error GoTo DBError 

1 Open "c:\TESTFILE.TXT" For Append As 1 1 Open file for output. 
1 Print #1, txt Prefix. Text & txtSuf ix . Text & "; txtPref ix . Text & t 
xtSufix.Text & ".tif, "; txtBatesPre.Text & txtBatesBNum. Text & "; t 
xtBatesPre.Text & txtBatesENum.Text * Write data to file. 
Close #1 

I I check the DOC NUMBER from Document Info 
''to see if it has already been used 

Set gdb = OpenDatabase (ms_DataBaseName$ ) 
6tr3QL = "SELECT * TUCM [Document Info]" 

Set mdsChaser - gdb.OpenRecordset (strSQL, dbOpenDynaset ) 
mdsChaser.FindFirst "[Doc Number] ="&"'"& txtSuf ix . Text & 
If mdsChaser. NoMatch Then 

mdsChaser .AddNew 'write data to database 
Else 

mdsChaser. Edit 'overwrite existing data 
End If 

mdsChaser! [Doc Number] = txtSuf ix . Text 

mdsChaser ! [Entry Info] = txtPref ix . Text & txtSuf ix. Text & ".tif" 
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mdsChaser! [Beg Bates #] = txtBatesPre.Text & txtBatesBNum. Text 
mdsChaser! [End Bates #] - txtBatesPre.Text & txtBatesENum. Text 
mdsChaser . Update 
mdsChaser. Close 
Exit Sub 
DBError: 

MsgBox "Error* " & Err. Number & " " & Err . Description 
chkSaveToDataBase. Value = 0 
ms_FileSavePath$ = App.Path 
Exit Sub 
End Sub 

Private Sub Deskewlmage ( ) 
On Error Resume Next 

If chkAutoDeskew. Value « 0 Then Exit Sub 
Dim docPages% 
Dim curPage% 

docPages% = wmObject . PageCount 
For curPage% = 1 To docPages% 

frmDisplay.lblPages. Caption = "Deskewing page " & curPage% & " of 
" & docPages% & 

frmDisplay.pnlPages.FloodPercent « curPage% / docPages% * 100 
wmObject . PageDeskew curPage% 
DoEvents 
Next curPage% 

frmDisplay.lblPages. Caption = "Saving TIFF file." 
End Sub 

Private Sub FormJLoadO 
•Dim li_OnTop% 

'li_OnTop% = SetWindowPos (Me.hWnd, -1, 0, 0, 0, 0, 1) 

1 Create a Watermark Professional object 
Me. Left = 0 
Me . Top = 0 

Set wmObject = CreateObject ( "Watermark. Automation" ) 
wmObject .ShowWindow 2 ' Show Watermark Window 
ms_FileSavePath$ = App.Path 

• add 1 V to path if needed 

If Right (ms_FileSavePath$, 1) <> "\" Then ms_FileSavePath$ = ms_Fil 
eSavePath$ & "\" 

Call settingsGet 
End Sub 

Private Sub Form_Unload (Cancel As Integer) 

' Exit Watermark, even if the current document has been modified but 
not saved. 

* Setting wmObject to Nothing causes Visual Basic to unload Watermar 
k from memory 

wmObject .Exit 
Set wmObject = Nothing 
Set mdsChaser = Nothing 
End Sub 
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Private Sub settingsGet ( ) 
Dim sFileName$ 
Dim sSection? 
Dim sKeyName$ 
Dim sDefault$ 
Dim sReturn$ 
Dim iReturnSize% 
Dim iReturn% 
sSection$ = "FUJIGINE" 
sKeyName$ = "PageSize" 
sDefault? = 
sReturn$ «= Space? (25) 
iReturnSize% = 25 

sFileName? = "C: \windows\wmpro.ini" 

iReturn% = GetPrivateProf ileString (ByVal sSection$, ByVal sKeyName$, 
sDefault$, sReturn$, iReturnSize%, ByVal sFileName$) 

Me. Caption = "Luke's WaterMark Scan Utility " & sReturn$ 

End Sub 



Public Sub pathlnfoO 

On Error GoTo PathError 
Dim mdsPathlnfo As Recordset 
Dim strSQLS 

•choose a database with common dialog 
CommonDialogl.CancelError « True 
CommonDialogl.DialogTitle = "Select Database" 
CommonDialogl. Flags « OFN_HI DEREADONLY 
CommonDialogl. Filter = "Database files I *,mdb" 
CommonDialogl. Filterlndex « 1 
CommonDialogl .Action = 1 

ms_DataBaseName$ = CommonDialogl . filename 
1 check the database for the path of the images files 
Set gdb = OpenDatabase (ms_DataBaseName$) 
strSQL = "SELECT * FROM Preferences" 

Set mdsPathlnfo » gdb.OpenRecordset (strSQL, dbOpenDynaset ) 
'set the file save path to it 
ms_FileSavePath$ = mdsPathlnfo ! ImagePath 
1 add 'V to path if needed 

If Right (ms Fil?S?."ePath$ ; 1) <> "\" Then r*s_?ileSavePath$ - ~r_~il 
eSavePath$ & "V" 

mdsPathlnfo . Close 

Set mdsPathlnfo = Nothing 

Exit Sub 
PathError: 

If Err » 32755 Then 1 cancel button was pressed 
chkSaveToDataBase.Valufc = 0 
ms_FileSavePath$ = App. Path 
Exit Sub 
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Elself Err = 3078 Then 

chkSaveToDataBase. Value « 0 

MsgBox f, The database chopsen is either not a PaperChaser database 
, or it is corrupted" 

ms_FileSavePath$ « App.Path 
Exit Sub 
Else ■ 

MsgBox "Error# " & Err. Number & " " & Err . Description 
chkSaveToDataBase. Value = 0 
ms_FileSavePath$ » App.Path 
Exit Sub 
End If 
End Sub 

Public Sub numbersUpdate ( ) 

txtSufix.Text = Format (Int(txtSuf ix. Text) + 1, "00000") 
txtBatesBNum.Text = Format (Int (txtBatesENum. Text ) + 1, "0000000") 
txtBatesENum.Text = Format (Int (txtBatesENum. Text) + 1, "0000000") 

End Sub 
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frmDisplay - 1 
Option Explicit 

Private Sub Form_Load() 

Me. Top = (Screen. Height - Me. Height) / 2 
Me. Left = (Screen .Width - Me. Width) / 2 

End Sub 
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frmWMScan - 1 

'Option Explicit 
'Deflnt A-z 

^riv« e P ^I a re"- 0 ru"rion 0 SetS?n 0 doKPos ll^user" (ByVal h%. ByVal hb%, ByVal «. ByVa! ByVa 

1 cx%, ByVal cy*5, 3yVal £1) As Integer 

'reads ini files ... C(1 ... , (b -Kernel" (BvVal IpAoolicationName As String 

integer, 3yVal IpFileName As String) As Integer 

Dim ms FileSavePathS 

Dim ro s"buttonWithFocusS 

Dim ms~Dat a Base NameS 

Const OFNJ-ilDEHEADONLY - &H4J, 

Private Sub buttonToggle ( ) 
On Error Resume Next 

cmdSave. Er.abied - '^t "^Sava .Tr.abled 
cmdScan. Enabled - Not cmdScan. Enabled 
cmdScan90. Enabled = Not cmdScan90 . Enabled 
cmdScanSave. Enabled « Not cmdScanSave . Enabled 
cmdSetUo. Enabled - Not cmdSetU? . Enabled 
'reset the focus back to the correct button 
Select Case ms_buttonWithFocus$ 
Case "cmdScan" 

cmdScan. Set Focus 
Case "cmcScar.90" 

cmcScar.90.SetFocus 
Case "cmdScanSave" 

cmdScanSave. Set Focus 

End Select 
End Sub 

Private Sub chkSaveToDataSase_Click ( ) 
If chkSaveTcDataBase. Value - 1 Then 

Call pathlr.ro 'gets the D3 and paths to save images 

E1S ms_fi 1 eSavePathS = Apo.Fath 'save images to the default path 

'lllii^.^jriesive^hlf 1) <> "V Then ^FileSavePat.S - « nieSaveP«h5 . »V 

End If 
End Sub 



Of 



vate Sub cxdSave_Click ( } 

On Error GcTo SaveError 

If wmObiect.PageCount = 0 Then Exit Sub 

Dim liPages^ 

Call buttonToggle 

Screen. y.ousePointer « 11 

Load frmDispiay 

f rmDisDlav. Show 

If chkAut'oDeskew. Value « 1 Then Call DesKewImage 

frraDisplay.Hide 

Unload frxDisplay 

liPages% - wmObject . PageCount _ 
wmObject.DocumentName « txtPref ix. Text & txtSufix.Tex. 

•[SaveAsLocai filename, fpage, cpages, f°^rwritej ^c u -< x . T ext > ".tif", liPacesi 

wmObject.SaveAsLocal ms_JileSavePath$ £ txtPrerix . Te.s. «. .x — -->^iext 

1 If chkSaveToDataSase. Value = 1 Then Call dbWrite 

Cail numbers Update mftH<f ^ ed nc - saved. 

• Close the current document, ever, if it has oeen moc-f.eo sa 

wmOb j ect . CioseDoc 

Screen. Mousepointer = 0 

Call buttonToggle 
Exit Sub 
SaveError: 
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MsgBox "ErrorO " & Err. Number & " H & Err . Description 
-/Resume Next 
i;nd' Sub 



frivate Sub cmdScan Click () 

ms buttonWithFocus$ » "cmdScan" 
Call buttonToggle 
Dim liPagosfc 

liPagesfc ° wmObject . PageCount 
liPages% = liPagesft + 1 
•[Scan fpage, incrPage, maxPages, flags) 
wmObject. Scan liPagesft, 1, -1/ 0 

•txtBatesENum.Text » Format (I nt (t xt Bates BNum. Text) + wmObject. PageCount - 1, "0000000" ) 
Call buttonToggle 
Cnd Sub 

Private Sub cradScan90_Click 0 

ms buttonWithFocus? - "cmdScan90 w 
Call buttonToggle 

Din liPagosO 
11 Pages 6 « wmObject . PageCount 
liPagesfc « iiPagesfc + 1 
'[Scan fpage, incrPage, maxPages, flags} 
wmObject. Scan liPagesfe, 1, -1, 1 

•txtBatesENum.Text =» Format (Int (txtBatesBNum. Text ) + wmObject. PageCount - 1, "0000000") 
Call buttonToggle 
End Sub 

Private Sub cmdScanSave__Click() 

ms_buttonWithFocusS - "cmdScanSave" 

Call buttonToggle 

Screen. MousePointer « 11 

* (Scan fpage, incrPage, maxPages, flags) 

wmObject. Scan 1, 1, 1* 0 

•txtBatesENum.Text » txtBatesBNum. Text 

* [SaveAsLocal filename, fpage, cpages, f Overwrite] 

If chkAutoDeskew. Value « 1 Then Call Deskewlmage 

wmObject.DocumentName » txt Prefix. Text & txtSuf ix.Text 

wmObject .SaveAsLocal ms FileSaveP*th$ * txtPref ix.Text & txtSuf ix. Text & ".til", 1, 1, 1 
If chkSaveToDataBase. Value « 1 Then Call dbWrite 
Call numbers Update 

* Close the current document, even if it has been modified but not saved. 
wmObject .CloaeDoc 

Screen. MousePointer « 0 

Call buttonToggle 
Exit Sub 
SaveError: 

MsgBox "Errorlt " & Err. Number & " " & Err. Description 
Resume Next 
End Sub 

Private Sub cmdSetup_Click ( ) 

1 Display the Scanner Setting dialog box 

wmOb j ect . ScanSetup 

Call settingaGat 
End Sub 

Private Sub dbWrite() 
On Error GoTo DBError 

' Open "c:\TESTFTLE. TXT" For Append As 1 * Open file for output'. 

Print #1, txtPref ix.Text & txtSufix.Text & t txtPref ix.Text & txtSuf ix. Text & M .tif, " 
txtBatesPre.Text & txtBateaBNura.Text & ", "; txtBatesPre.Text & txtBatesENum.Text 1 Write data 

0 £ilo. 

1 Close 01 

• ' check the DOC NUMBER from Document Info 
''to see if it has already been used 
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f rmWMScan - 3 

Set gdb - QpenDatabase (ma DataBaeeName9) 

atrSQL » "SELECT * FROM, [Bocumertt Info]" 

Set mdsChaaer - gdb.OpenRecordaet (atrSQL, dbOp on Dynaset) 

mdsChaaer. FindFirst "[Doc Number) txtSufix.Text & 

If mdsChaaer. NoMatch Then 

mdsChaser.AddNew 1 write data to database 
Elae 

mdsChaaer. Edit 'overwrite existing data 
End If 

mdsChaaer 1 [Doc Number] - txtSufix.Text 

mdsChaaer I (Entry Info] - txt Pre fix. Text & txtSufix.Text & H ,t'if M 
1 mdsChaaer I (Beg Bates #] - txtBatesPre.Text & txt BatesBNum. Text 
1 xndaChaser I [End Bates I] - txtBatesPre.Text & txtBatesENum.Text 

mdefchaser I [Description] - txt Description. Text 

mdsChaaer. Update 

mdsChaaer. Close 

Exit Sub 
DBErrori 

MagBox "Errorfl 11 & Err. Number & " " & Err. Description 
chkSaveToDataBase. Value - 0 
ma FileSavePath$ - App.Path 
Exit Sub 
End $ub 

Private Sub Deskewlmage ( ) 
On Error Resume Next 

If chkAutoDeskew. Value - 0 Then Exit Sub 
Dim docPages% 
Dim curPagel 

docPages% - wmObject . PageCount 
For curPage% - 1 To docPages% 

frmDisplay.lblPages. Caption - "Deskewing page " t curPage% & " of M & docPages* & 
trnipiapiay.pnlPages.FloodPercent • curPage% / docPages% * 100 
wmObject. Pa geDe skew curPage% 
DoEvents 
Next curPage% 

frmDisplay.lblPages. Caption - "Saving TIFF file." 
End Sub 

Private Sub Form Load() 
'Dim H OnTopI 

'li_OnTop% - SetWindowPos(Me.hWnd, -1, 0, 0, 0 # 0 ( 1) 
1 Create a Watermark Professional object 
Me. Left - 0 
Me. Top - 0 

Set wmObject - Croat eOb j ect ( "Watermark. Automation") 
wraObject.ShowWindow 2 • Show Watermark Window 
ms" FileSavePath$ «■ App.Path 
1 add "V to path if needed 
If Right (ms_FileSavePath$, 1) <> n \ n Then ms_FileSavePath$ - ms_FileSavePath$ & !, \" 
Call settingsGet 
End Sub 

rrlvate Sub Form — Unload ( Cancel As Integer) 

' Exit Watermark, even if the current document has been modified but not saved. 

• Setting wmObject to Nothing causes Visual Basic to unload Watermark from memory 

wmObject .Exit 

Set wmObject - Nothing 

Set rads Chaser - Nothing 
End Sub 

Private Sub settingsGet ( ) 
Dim sFileName$ 
Dim sSection$ 
Dim aKeyName$ 
Dim a Defaults 
Dim aRetum$ 
Dim iReturnSizet 
Dim lReturn% 
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sSection$ - "FUJIGINE" 
sKeyName5 - "PageSire" 
sDefault$ = "" 
sReturn$ « Space$(25) 
iReturnSize% - 25 

sFileNameS » "C: \windows\wmpro.ini" 

iReturnfc « GetPrivateProf ileString (ByVal sSection$, ByVal sKeyNameS, sDefault$, sReturn$, 
turnSizefc, ByVal sFileName$) 

Me. Caption - "Luke's WaterMarlc Scan Utility " & sReturn$ 

End Sub 



Public Sub pathlnfoO 

On Error GoTo PathError 
Dim mdsPathlnfo As Recordset 
Dim strSQLS 

'choose a database with comrr.?r. dialog 

CommonDialogl .CancelError ■ True 

CommonDialogl . DialogTitle « "Select Database" 

CommonDialogl . Flags - OFN_HI DEREADONLY 

CommonDialogl . Filter » "Database files I *.radb" 

CommonDialogl. Filter Index ~ 1 

CommonDialogl. Act ion ° 1 

ms DataBaseName$ = CommonDialogl . filename 

'check the database for the path of the images files 

Set gdb » OpenDatabase (ms_DataBaseName$) 

strSQL - " SELECT * FROM Preferences" 

Set mdsPathlnfo « gdb.OpenRecordset (strSQL, dbOpenDynaset) 

•set the file save path to it 

ms FileSavePath$ « mdsPathlnfo ! ImagePath 

1 add • V to path if needed 

If Right (ms_FileSavePath$, 1) <> "\ M Then ms_FileSavePath$ = ms_FileSavePath$ & "\" 
mdsPathlnfoTciose 
Set mdsPathlnfo => Nothing 
Exit Sub 
PathError : 

If Err - 32755 Then ' cancel button was pressed 

chkSaveToDataBase .Value ra 0 

ros_Fi]*SavePath$ «■ App.Path 

Exit Sub 
Elself Err » 3078 Then 

chkSaveToDataBase .Value » 0 

MsgBox "The database choosen is either not a PaperChaser database, or it is corrupted" 
ms FileSavePathS = App.Path 
Exit Sub 
Else ' 

MsgBox "Errorfl " & Err. Number & " " & Err. Description 
ChkSaveToDataBase, Value = 0 
ms_FileSavePath$ » App.Path 
Exit Sub 
End If 
End Sub 

Public Sub number s Update ( ) 

txtSufix.Text - Format (Int (txtSuf ix. Text) + 1, "00000") 

'txtBatesBNum.Text ~ Format (Int (txtBatesENum. Text) + 1, "0000000") 

'txtBatesENum. Text » Format (Int (txtBatesENum. Text) + 1, "0000000") 
End Sub 
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Option Explicit 

Global wmObject As Object 1 The 
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object handle to Watermark 
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frmDi splay - 1 
Option Explicit 

Private Sub FormJLoad ( ) 

Me. Top « (Screen. Height - Me. Height) / 2 
Me. Left « (Screen. Width - Me. Width) / 2 

End Sub 
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frmOCR - 1 

• Copyright (CJ 1995,1996 Lune Spence 

• Last modified on 05/01/96 
Option Explicit 

Srivate^eciare Function rindWindowi Lib "user" !2yVal IpClassName ks Any. EyVal IpCaption As An 

y ) 

•Declare Sub SetCursorPos Lib "User" (ByVal x As Integer, 3yVal y As Integer) 
•There's no need tc reset mouse position with OmniPage Lite 
Dim SetUp 

Dim programCaptionS 
Dim programPathS 
Dim FNameS 
Dim DocFNameS 
Dim filePathS 
Dim fileToGetS 
Dim numOfFiies* 
Dim x% 

Dim numSelected* 
Dim percentDcne* 
Dim procCountS 
Dim test% 

Private Sub cmdExit_Click(} 

End 
End Sub 

Private Sub cxd?rccess_CIick ( ) 
Dim iLoop% 

Or. Error Resume Next 

If Filel. filename - Then n 

MsgBox "Please choose a file.", 0, "No file selected. 

Exit Sub 
End If 

If Right (Filel. Path, 1) - "\" Then 

filePath *■ Filel. Path 
Else 

filePath - Filel. Path & "\" 
End If 

n umOf Files i - Filel . List Count 

For iLoopfc a 0 Tc numOfFiles* - 1 , 4 . . 

If Filel. Selected dLoop*) Then r.ur.Seiectec% - nuaSciec^c* - * 
Next iLoopi 

percentDoneV -= 100 \ numSelected% 
For iLoopt ■ 0 To numOf Files *s - 1 

fileToGetS - Filel .List (iLoop% ) 

If Filel .Selected iiLoop%) Then 
FName - filePath & fileToGet 

DocFName - LeftS (fileToGet, -Lent fileToGet : - 3)) 
DrocCo-jr.t* « crocCount% * 1 . n _ 

*pnlDis?iay. Caption ° "Processir.c " f. prccCcur.t* 5 " c: * n^e.e.tea. 
Call Process 

DoFvents _ 
onlPerc9ntC:;molete.FloodP^rcer.t « ?n l Dprrnnrr^nJen- "^ooPer—- - r o ^°^ n ^° 

End If 
Next iLoopi 

pnlDisplay. Caption - "Finished processing at " & Time 
pnlPercentCompiete . FioocPercent ** 0 
procCount* - 0 
numSelected% - 0 
Filel .Refresh 
End Sub 

Private Suo Dirl Chanae { ) 
Filel. Path - Dirl. Path 

End- Sub 

Private Sub Drive l_Change ( ) 
On Error Resume Next 
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Dirl.Path » Drivel. Drive 
End Sub 

Private Sub Ferm_Load() 
On Error Resume Next 
Top - 100 

Left - Screen. Width - frmOCR. Width - 100 
Call infoGet 

x% - ShelUprogramPathS, 4) 
frmOCR.Show 
Dirl.Path « "C:V 
End Sub 

Private Sub Forr. KouseMove (Button As Integer, Shift As Integer, x As Single, y As Single) 
x = 1 

y - i 

End Sub 

Private Suo inf oGet ( ) 

On Error GoTo iniError 

Open "lukesccr .ir.i" For Input As #1 

Line Input #1, programCaptionS * Get complete line. 

Line Inout *1, programPathS ' Get complete line. 

Close #1 

Exit Sub 
iniError: 

MsgBox "Errcr retrieving information from ' lukesocr . ini ' " 
End Sub 

Private Sub mouseHomet) 

* need a routine to move mouse pointer to bottom corner 

' of the screen so that WordScan title bar doesn't change 

• if it does V3 program can't recognize WordScan program 
•SetCursorPos Screen . Width, Screen. Height 

End Sub 

Private Sub Process () 

AppActivate programCaptionS 

x% - Shell (programPathS & " " & FNameS, 4} 

Call mouse Home 

SendKeys "IF", True ' ALT F 

SendKeys "?.", True 'R 

SendKeys "A", True ' A 

test* « 0 

Do While test* « 0 
x% = DcEvent s ( ) 

test% * FindWindow (0£, "Save As") 
Loop 

SendKevs -ccFlsameS 
SendKeys "{Enter}" 
test* = 0 
Call mouseHcme 

SendKeys " -Enter j" • to overwrite if file aireaay exists 
Do While test* = 0 
x* « DoEvents ( ) 

test% - FindWinaow(C& ( programCaptionS) 
Loop 

AppActivate "Luke's Automated OCR'ing Utility" 
End Sub 
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Option Explicit 
Deflnt A-Z 
' • 'arrays 

Dim page ( ) As Long 

Dim finds () As Integer 
• • 'long 

Dim positions 
' ' 'integers 

Dim pageNumber% 

Dim numOfPages% 

Dim startPosition% 

Dim f % 

Dim foundcount% 
Dim FirstPageEOPMarker% 
Dim iPageNumShown% 
' • 'strings 

Dim pathOfDepos$ 
Dim fileSource$ 
Dim ec?Locations$ 
Dim new_Line$ 
Dim endOfPage$ 
Dim search$ 
Dim temp? 

Dim nameOf Deposed$ 

Private Sub buttonReset { ) 
On Error Resume Next 
• reset page number buttons 
Select Case pageNumber% 
Case 0 1 no pages loaded 

cmdPagePrev. Enabled « False 

cmdPageFirst . Enabled - False 

cmdPageNext .Enabled = False 

cmdPageLast .Enabled - False 
Case 1 ' first page 

cmdPagePrev. Enabled = False 

cmdPageFirst .Enabled - False 

cmdPageNext .Enabled = True 

cmdPageLast .Enabled - True 
Case numOfPages ' last page 

cmdPagePrev, Enabled = True 

cmdPageFirst .Enabled * True 

cmdPageNext .Enabled - False 

cmdPageLast .Enabled ■> False 
Case Else 1 all other pages 

cmdPagePrev. Enabled - True 

cmdPageFirst .Enabled = True 

cmdPageNext . Enabled - True 

cmdPageLast . Enabled = True 
End Select 

Select Case numOfPages% ' if only one page 
Case 1 

cmdPageNext. Enabled « False 
cmdPageLast . Enabled « False 
End Select 

1 reset find word buttons 

Select Case foundcount% 

C aS e 0 1 no words found 

cmdWordPrev. Enabled « False 

cmdWordFirst. Enabled - False 

cmdWordNext. Enabled « False 

cmdWordLast. Enabled - False 
Case x 1 only 1 occurance of word 

cmdWordPrev. Enabled » False 

cmdWordFirst. Enabled - False 

cmdWordNext .Enabled = False 

cmdWordLast .Enabled « False 
Case Else 1 more than one occurance 

Select Case finds (f%) 
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Case finds (1) 1 first occurance of word 

cmdWordPrev. Enabled - False 

cmdWordFirst . Enabled * False 

cmdWordNext. Enabled - True 

cmdWordLast. Enabled -» True 
Case finds <foundcount%) • last occurance of word 

cmdWordPrev. Enabled « True 

cmdWordFirst .Enabled « True 

cmdWordNext . Enabled = False 

cmdWordLast. Enabled - False 
Case Else ' all ether words 

cmdWordPrev. Enabled - True 

cmdWordFirst. Enabled - True 

cmdWordNext. Enabled - True 

cmdWordLast. Enabled - True 
End Select 
End Select 

1 reset word burtons if no depo is loadea 
Select Case fileSourceS 
Case M " 

cmdCopy. Enabled ■» False 

cmdWordFind. Enabled « False 

cmdWordPrev. Enabled - False 

cmdWordFirst. Enabled ° False 

cmdWordNext. Enabled « False 

cmdWordLast .Enabled = False 
Case Else 

cmdCcsy. Enabled * True 

cmdWordFir.d. Enabled « True 
End Select 
End Sub 

Private Sub cmdCopy_Ciick ( ) 

Dim cbDepoInfoS nflwa vnpn 0 <:ed5 L '\ cage ? " & iPaaeNumShownt * new 

cbDepoInfcS « "From the deposition of £ nameOiueposec* c , «ay<= 

_Line$ 

CUpboard! Set?e>:-_ new.LineS & cbDepoInfoS 4 t>:tCcpy?aste . SeiText L new.LineS 
End Sub 

Private Sub cmdPacer irst_Click ( ) 

On Error Resume Next 

pageNumbert » 

Call pageDisplay 
End Sub 

Private Sub cir.dPaceLast_Click < ) 

On Error Resume Next 

page Number? = r.umOf Pages % 

Call paceDispiay 
End Sub 

?riv=tr Cub c=d?3?e!^:-.: - CIick ( 1 

On Error Resume Next" 

pageNumberi » pageNumber% + 1 

Call pageDisplay 
End Sub 

Private Sub cmdPagePrev_Click ( > 

On Error Resume Next 

pageNumberi « pageNumber% - 1 

Call pageDisplay 
End Sub 

Private Sub cmdWordFir.d_Click( ) 
On Error Resur.e Next 
Dim pageDisplayedfe 
pageDisplayed? - pageNumber% 
pctDispiay" Visible - True 
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searchS « InputBox? ( "Please enter the word you wish to search for.", "Word Search" 
If search? « " ;| Then EaaL Sub 
1 reset variables 
f% - 0 

foundcount% - 0 
Call wordFind 
If f% < 1 Then 

DageNumber* = pageDisplayed* _ =- rt imr " 

MsgBox "The word "■ & searchS & "' was r.ct round.", Not rounc. 
Exit Sub 
End If 

pageNuraber% ■ finds <f%) 
Call pageDisplay 
End Sub 

Private Sub cmdWordFirst_Click() 
On Error Resume Next 

f% - i 

pageNumber* - finds tfi) 
Call pageDisplay 
End Sub 

Private Sub cmdWorcLast_CIick () 

On Error Resume Next 

f% - founccount% 

pageNumbert = finds (ft) 

Call pageDisplay 
End Sub 

Private Sub cmdWordNext_Ciick ( ) 
On Error Resume Next 
f% - f% + 1 

pageNumber* - finds (f*) 
Call pageDisplay 
End Sub 

Private Sub cmdWordPrev_Click { ) 
On Error Resume Next 
f% - f% - 1 

pageNumber% = finds (f%) 
Call pageDisplay 
End Sub 

Private Sub deposedName { ) 
Dim firstPageS 
Dim posMarkerfc 
Dim posEOLll 
Dim posEOL2% 
Dim posEOL3% 
cemps « " " 

Ooen fileSourceS For Binary Access Read hs e- 
Seek til, 1 

firstPageS = Input S I! 996, 1) 
Close §1 

posMarker* « InStrC, firstPageS, "deposition o- , » J 
posEOLl* - InStr tposMarker%, firstPageS, new_LineS> 
oosE0L2% - InStr (dosE0L1% + 1, firstPageS, new_LineS) 
posEOL3% - InStr (posEOI2% + 1, firstPageS, r.ew_LineS) 

tempS - Mid$ (firstPageS, (posKarker% * 12 \ , ;?osEOLas - <?os^arKert - 13) J J 
If Len(Trim(tempS) ) > 3 Then 

nameOfDeposedS « fnMakeAlpha (tempS) 
Else 

tempS « MidSt firstPageS, pcsEOLl*. (pcsEOL2* - pcsSOLU)) 
nameOfDeDosedS = fnMakeAlpha (temp$ ) 
If Trim(nameOfDe=osed$) = Then 

tempS - MidS (firstPageS, posEOL2*, ',posEOL3% - posEOLZ*)) 

nameOfDeposedS « fnMakeAlpha (tempS i 
End If 
End If 
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nameOfDeposed$ - Trim (nameOf Deposed? ) 
Eitu Sab 

Private Sub riepoSelect ( ) 
On Error Resume Next 

f rmDepoView. Dialoguel.CancelError - False f 
frmDepoView.Dialoguel.DialogTitle - "Open Deposition 
frmDeDoView. Dialogues Flags = OFN_KI DEREADONLY 
frmDeboView. Dialogue 1. InitDir -» pathOfDeposS 
frmDepoView.Dialoguel. Filter = "All files CM I*.* 
frmDepoView.Oialoguel. Filter Index - 1 
f rmDepoView. Dialogue! .Action = 1 
f ileSourceS « f rmDepoView . Dialogue 1 . filename 
End Sub 

Private Sub determine Format ( ) 
On Error Resume Next 
Dim charS 
Dim pos Foundl 

Open fileScurce$ For Binary Access Read As #1 
char$ - Input? (5120, 1) 
Close #1 

posFound* = InStrt charS, endCfPageS) 
If posFound* « 0 Then 

Call pagePositionsAmicus 

Else 

Call pagePositionsAscii 
End If 
End Sub 

Private Function f nGetFirstLine (pageOf Text As String) As String 

Dim eolPos% 

Dim sFirstLineOfTextS 

eolPos% » Ir.Str (pageOfText, new_LineS) 

sFirstLineOfTextS - MidS (pageOfText , i, eolPost) 

fnGetFirstLine - sFirstLineOf TextS 
End Function 

Private Function f nGetLastLine (pageOfText As String) As String 
Dim eol?os% 

'reniove last eol marker 

oaoeOfTextS - MidS (paoeOf TextS, 1, (Len(pageO£Text$) - 2)) 

'•remove all other eel markers & whittle down pageOfText 

Do While Ir.Str <pageOfText$, new_Line$) 
eolPos* - InStr (pageOfText, new_Line$) 
pageOf Texts » MidS (pageOfText , eolPosfc + '-) 

Loop 

fnGetLastLine « pageOfText? 
End Function 

Private Function inMakeAipha (f irstPageOf Depo As String) As S^rin- 
Dim charS 

r><»* plp*»? 

Dim iloop% 

For iloop% - 1 To Len ( firstPageOf DepoS) 

charS - MidS ( firstPageOf Depo$, iloop%, 1) 

Select Case Asc(char$) 

Case 32, 65 To 90, 57 To 122 

alphas ** alphas & charS 
End Select 
Next iloop% 
fr.Ms ho Alpha -* a2pha$ 
End Function 

Private Function f nMakeNumeric [alphaNumeric As String) As Intege 
Dim char$ 
Dim numeric* 
Dim iloopt 

For iloop% « 1 To Len(alphaNumericS) 
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charS • MidS (alphaNumericS, iloop%, 1) 
Select Case Asc.(charS) 
Case 48 To 57 

numeric% « numeric* fi Clnt(charS) 
End Select 
Next iloop% 

fnMakeNumeric - numeric* 
End Function 



Private Sub Form_Load{) 

On Error Resume Next i / 

frmDepoView.Left - (Screen. Width - frmDepoView. Width) / 2 
frmDepoView. Top - (Screen . Height - frmDepoView. Height ) / 2 
Call buttonReset 
Call screenSize 
pathOfDeposS - Commands 
If pathOfDeposS - Then 

pathOfDeposS - App.Path 
Else 



• here we want code to replace images/ with depos/ ^.v« 
pathOfDeposS - Lefts (pathOfDeposS , {InStrU, pathOfDeposS, "Images', 1) - 1)) & "Depos\ 



End If 
endOf PageS - ChrS(12) 
new_LineS = ChrS(12) 
End Sub 



Private Sub Form_Resize ( ) 

Call screenSize 
End Sub 



Private Sub getPageNumber ( ) 
On Error Resume Next 
Dim iValidSearch% 
Dim iFirstLine% 
Dim iLastLinefc 
Dim errCode% 
Dim sFirstLineS 
Dim sLastLineS 
Dim pageFromDepoS 
pageFrcmDepoS * txtCcpyPaste.Text 
errCode^ » 0 

sFirstLineS - fnGetFirstLine (pageFromDepoS) 

sLastLineS « fnGetLastLine (pager rcmDepoS ) 

iFirstLine% « fnMakeNumeric (sFirstLineS) 

iLastLine% - fnMakeNumeric (sLastLineS ) 

' check for page numbers with word 'page' eg "Page 14 

iValidSearch% - InStrU, sFirstLineS, "page' 1 , 1) 

If iValidSearch% > 0 Then 

If iFirstLine% > 0 Then 

i PageNuir.Shown* - iFirstLine% 
Exit Sub 

End If 
End If 

iValidSearchi - InStrU, sLastLineS, "page", -} 
If iValidSearch* > C Then 
If iLastLine% > 0 Then 

iPageNumShowni - iLastLine% 
Exit Sub 
End If 
End If 

' check fcr amicus style number eg "00148*' 
On Error GoTo ami cusLast Line 
Select Case Len (Trim(sFirstLineS) ) 
Case 4, 5 

iPageNumShownt = CInt (Trim (sFirstLineS ) ) 
. Exit Sub 
End Select 
amicusLastLine: 

On Error GoTo genericNumber 
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Select Case ten (Trin(sLastLine$) ) 
Case 4,5 

iPageNumShown% - CInt (Trim(sLastLineS) > 
Exit Sub 

End Select ..mo.. 
genericNumber: ' check for generic numoer eg 148 
On Error Resume Next 
Select Case Len (Trim(sFirstLine5) ) 
Case 1, 2, 3 

If iFirstLine% > 0 Then # 
iPageNumShown* - irirstLine% 
Exit Sub 
End If 
End Select 

Select Case Len (Trim (sLastLineS) ) 
Case 1, 2, 3 

If iLastLine% > 0 Then 

iPageNu-T.Showni - iLastLine% 
Exit Sub 
End If 
End Select 
iPageNumShown% - 0 
Er.d Sub 

Private Sub mnuEditCopyJUicki) 

cmdCopy Click 
Ir.d Sub 

Private Sub ir.nuEditrind_Ciick ( ) 

cmdWordFind_Click 
Zr.d Sub 

Private Sub mnuFileExit_CIick ( ) 

End 
Er.d Sub 

Private Sub mnuTileOpen^Click ( ) 
On Error Resume Next* 
'reset a few variables 
pageNumber* - I 
search? - 

pctDisplay. Visible - True 

Call depoSelect ^ . 

If frmDepoView.Dialoguel. filename - Then Exit sud 

'Call determine Format 

Call pagePositionsAscii 'or pagePositions#ur.icus 
Call pageLocations 
Call deposedName 
Call pageDispiay 
Ir.d Sub 

Private Sub mnuFilePrint_Click { ) 
On Error Resume Next ~ 
Dim x\ 
Dim pos 4 
Dim EOPMarkerfc 
Dim pageListlS 
Dim found* 
Dim currentLineS 
Dim pageListlTriiaS 
Printer . Fcnt3oid - True 
Printer. FcntSize - 12 
Printer. FontName - "Courier" 
Printer. FcntSize - 12 

For x% » 1 To nuraOf?ages% „ „. p*; nte ^ o--nt H 

Printer. Print - «: Printer . Print : - -I o"^ % ' p^Int - 

Printer. Print - ": Printer . Print - ": Printer . Fnn. . ...r.we-.Prin. 

pageNumber* - xfc 
pos& - 1 
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If pageNumber% - 1 Then 

If ? l > rpr.PageEOPMarker* - 1 Then post - 2 
Else 

post ° page (pageNumber - 1) + 1 
End If 

EOPMarkert = page (pageNumberS) 

Open fileSourceS For Binary Access Read As 51 

Seek SI, posi 

pageListlS - InputS ( (EOPKarker i - pos&), -) 
Close il 

Do While Len (pagelist 15 ) <> 0 

found* - inStr (paaeListlS, new_Line$) 
currentLineS - MidS (pageListlS, 1, (founds - 1/) 

If Trim (currentLineS) <> " M Then ^-smi & r-S(lO) 

oaoeListlTrirr.S - pageListlTrimS & currentLineS • uh.S(l-) & C.S(IO) 

End" If 

pageListlS - KidS {pageListlS , (found* + 2)) 
Loop 

Prir.cex . i::t page lis tlTriaS 
Printer. NewPage 
pageListlTrimS - 
Next x% 

Printer. EndDoc 
nd Sub 

rivate Sub mnuFiie?rir.terCondensed_Ciick ( ) 
On Error Resume Next 
Dim x% 
Dim post 
Dim EOPMarkerfi 
Din pageListlS 
Dim founds 
Dim currentLineS 
Dim pageListlTrimS 
Dim liPrintPosXS 
Dim liPrintPcsYS 
Dim liQuadrant 4 . 
liQuadrant% = 1 
Printer . tcntBolc - True 
Printer . FontSize «* " 
Printer. FcntN^ne - "Courier" 
Printer . FcntSize ° " 
For x% - I To r.umOf Pages z 

pageNumber % - xt 

post - 1 

If pageNumber* » 1 Then 

If FirstPageEOPKarkert - 1 Then posfi. - 2 
Else 

posi « page i pace Number - 11 T - 
End If 

EOPMarker& * pace ipageNumberS ) 

Open fileSourceS For Binary Access Read As SI 

Seek #1, pos6 

pageListlS = Inputs i {EOPKarnarc - posi), 1) 
Close #1 

If liQuadrant% = 1 Then 

UPrintPosXS - 0 

UPrintPosYS - 0 

liQuadrant% - 2 
Slself liQuadrar.tS - 2 Then 

UPrintPosX* - 0 

HPrintPosYt - Printer . ScaleHeight / 2 

liQuadrar.t % = z 
Elself iiQuadrar.t% - 3 Then 

liPrintPosXS = Printer . ScaleWicth / 2 

liPrintPosY* * 0 

liQuadrant* - < 
Elself liQuarirar.t* - 4 Then 

UPrintPosXi - Printer . ScaleWidth / 2 
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liPrintPosY* " Prinner .ScaleHeicht / 2 
liQuadrant% « 1 
End If 

Printer. Currents - UPrintPosY* 
Printer. Print " ■ Printer . Print M " 
Do While Ler. (pageListIS) <> 0 

found* * InStr (DageListlS, new_LineS) 

currentLineS » MidS (pageListIS , 1, ;:ound% - 1}) 

If Trim(currentLineS) <> Then . oC r*rst\l\ & o-Sfl*l 

'pageListlTrimS « pageListlTrimS i currentLineS & ChrS(lJ) « 

Printer .CurrentX - liPrintPosX% 

Printer . Print currentLineS & new_Line$; 
End If 

pageListIS - MidS {pageListIS , (rounds +2)) 
Loop 

pageListlTrimS - 

. 11 Irinter.Zine'M^^ / 2), C) -( printer .Sc-eWi.T^ / 2i, Prince, CcaieKei 

> htl Printer. Line (0, (Printer .ScaleHeicht / 2} )- (Printer .ScaleWidth, ( Printer . ScaleHeicht 

/ 2)) 

Printer .N'ewPage 
End If 
Next xt 

Printer. EncDoc 
Er.d Sub 

Private Sub mnuFiiePrinterSetup_Click ( ) 
Dim CanceiFiag As Integer 

CancelFlag - True 
On Error Resume Next 
Dialoguel, CsncelErrcr = True 
Dialoguel, Flags - ?D_PRINTSETU? 
Dialoguel .Action - 5 
If (Err * 0) Then 

CancelFlag - False 
End It 

If (CancelFlag - True) Then Exit Sub 
End Sub 

Private Sub mnuKeipAbout_Click ( ) 
Load frmAbout ~ 
f rmAbout . Show 
Er.d Sub 

Private Sub pageDisplay ( ) 
On Error Resur.e Next 
Dim found* 
Di^ pOSa 

Dim currentLineS 
Dim EOPMarkert 
Dim pageListIS 
Dim pageListlTrimS 
post = 1 

If pageNumbert <= 1 Then 

If FirstPageEOPXarker* - 1 Then pos& «• 2 
Else 

tros6 o oage (oegeMunber - 1) + 1 
End" If 

EOPMarkeri - page (pageNumber%) 

pctDispiay.Cls 

txtCopyPaste. Clear 

Open fileScurceS For Binary Access Read .-.s e. 
Seek el, posi 
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pageUstl$ - Inputs ( (EOPMa./ceri - pos&), 1) 
Close #1 

Do While Len(pageListlS) <> 0 

found* - InStr (pageListlS, new_Line$) 
currentLineS « MidS (pageListlS, 1, (four.c* - U) 
If Trim(currentLineS) <> , "* Then 
If searchS - Then 

pctDisplay. Print currentLineS . ^ S(101 

pageListlTrimS » pageListlTrimS i currentLineS c CnrSU-) <■ w...$d0) 

PageListlTrimS = pageList ITrimS * currentLineS L ChrS(l2; a ChrSdO) 

" ^ia™^ current, searchS, l„ - I); 

?S5fi:;: Print°MidS TcSSntUnl^lnStrCI. currentLineS, searchS, 1,,, Lenisea 



rch$)); 
earchS) )) 



octDisciay.ForeColor - &K0 ' black _ . 

pctDisplay. Print MidS (currentLineS, idnStrd, current nine*. searchS, I,) + ,en(s 



Else 

pctDisplay. Print currentLineS 
End If 
End If 
End If 

pageListlS - MidS (pageListlS , (founa* + 2)) 
Loop 

txtCopyPaste.Text = pageListlTrimS 

If InStr (txtCopyPaste. Text, searchS, 1) Then 

pctScroll. Visible - True 

txtCopyPaste. Visible - False 
Else 

pctScroll .visible « False 
txtCcoyPaste. Visible « True 
End If 

If searchS » "" Then 

pctScroll .Visible - False 

txtCopyPaste .Visible - True 
End If 

Call buttonReset 

Call getPageNunber nJin -of DaoosedS £ " Page « " & iPaoeNumShown* 

Me. Caption = "Deposition of " & nameOr Deposec* * ray«- 

End Sub 

Private Sub pageLocations ( ) 
Dim x% 
Dim found* 

ReDim paged To numOfPages* ) 
x% - 1 

Do While Len (eopLocationsS ) > 0 

found* » InStr (eopLocationsS, " ") 
If fcur.c* <> 0 Then 

pageix*) «■ Ir.t (Mid (eopLocationsS, 1, found*)) 
eopLoc3tionsS «* MidS (eopLocationsS , (found* + D) 

X* - X* + i 

Else 

Exit Do 
End If 
Loop 
End Sub 

Private Sub pagePcsiticnsAmicus ( ) . „ 

IsgBox "Currently usupported file format.", 6;, "Unsupported .orma.. 
Ixit Sub 

On Error Resume Next 
Dim f irstPaceNumberi 
Dim nextPaceNumber* 
Dim amicusPageNumberS 
Dim trimCharS 
Dim charS 
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• Dim zeros$ 
zeros$ « M 0C0C M 

' numOfPages% » 0 

• Open fileSourceS For Input As #1 

• Line Input #1, char$ 

' triroCharS = Trim(charS) 

1 firstPageNumber% - CInt (trimCharS) 

• Close SI 

• 1 loop 

nextPageNumber% « nextPageNumber% + 1 

■ amicusPageNumberS * Rights ( (zerosS & CStr (nextPageNumberfc ) ) , 4) 

• 'search for amicusPageNumber 

' Open fileSource$ For Binary Access Read As £1 

■ Do Until EOF(l) ' find the number of end of page markers 

char$ « Input$ (32768, 1) 
» posFound% = InStr(char$, amicusPageNumberS) 

» If posFound% <> 0 Then 

• numOf Pages'^ =* nuruGfPage&% + 1 

eopLocationsS - eopLocationsS & (of f set Positions + posFound%) & " " 

• End If 

1 offsetPosition& - of f setPositioni + 32768 

• Loop 
Close #1 



Seek #1, 1 ' make adjustment if 1st page starts with EOP marker 
If Inputs (1, 1) = endOf PageS Then 

numOfPages% « numOfPages% - 1 

eopLocationsS - MidS (eopLocationsS, 3) 

FirstPageEOPMarker% = 1* if first page starts with an EOP marker 
End If 

Seek SI, LOF(l) ' make adjustment if last page has no EOF 
If Inputs (1, 1) <> endOf PageS Then 
numOfPages% = numOf?ages% + 1 

eopLocationsS - eopLocationsS & F ileLen ( f ileSourceS) & " " 
End If 



' Me. Caption = Me. Caption & " " & numOfPages% 
End Sub 

Private Sub pagePositionsAscii ( ) 
On Error Resume Next 
Dim charS 
Dim posFound% 
Dim of fsetPositionfc 
Dim lastCharPositionS. 
numOfPages% - 0 
FirstPageEOPMarker% « 0 

1*«**CharPosit-' on$ - r < ' *»?.*n t IflSoorr^S) 
Open fileSourceS For Binary Access Read As #1 

Do Until EOF(l) ' find the number of end of page markers 

charS = Inputs (12B, 1) 
posFound* » InStr(char$, endOfPageS) 
If pos Found*, <> 0 Then 

numOfPages% » numOfPages% + 1 

eopLocationsS eopLocationsS & (of f setPosition& + posFound%) & " 
End If 

of fserPosi ticn& - of f setPositionfc + 128 
Loop 

Seek #1, 1 * make adjustment if 1st page starts with EOP marker 
If Inputs (1, 1) = endOf PageS Then 

numOfPages% « numOfPages% - 1 

eopLocationsS «■ MidS (eopLocationsS, 3) 

FirstPageEOPMarker% = 1 1 if first page starts with an EOP marker 
End If 
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Seek #1, LOF(l) ' make acustment if last page has no EOF 
Tf. Input? (1. 1) <> endOfPage$ Then 
numOfPages% = numOfPages% + 1 

eopLocationsS = eopLocations$ & FileLen (fileSource$) & " " 
End If 
Close #1 
End Sub 

Private Sub pctDisplay_Click {) 

txtCopyPaste. Visible = True 

pctScroll .Visible - False 

txtCopyPaste . SetFocus 
End Sub 

Private Sub screenSizet) 
On Error Presume Next 

pctScroll. Top » cmdWordPrev. Height + cmdWordPrev . Top + 10 
pctScroll .Left » 10 

pot Scroll. Wi dih - frmDepoView. ScaleWidth - 50 

pctScroll. Height - frmDepoView. ScaleHeight - cmdPagePrev . Height - 50 
VScrolll. Top « 0 

VScrolll.Left - pctScroll .Width - VScrolll .Width 

VScrolll. Height = pctScroll . Height 

VScrolll. Max - 100 

VScrolll. LargeChange » 33 

VScrolll. SmallChange « 16 

pctDisplay.Top « 0 

pctDisplay .Left - 0 

pctDisplay. Width « pctScroll .Width - VScrolll. Width - 40 
pctDisplay. Height - Screen . Height * 2 
txtCopyPaste, Top = pctScroll . Top 
txtCopyPaste. Left - pctScroll . Left 
txtCopyPaste .Width - pctScroll. Width 
txtCopyPaste. Height =* pctScroll . Height 
End Sub 

Private Sub VScrolll_Change ( ) 

•pctDisplay.Top - -VScrolll . Value 

pctDisplay.Top = - (VScrolll .Value / 100) * ScaleHeight 
End Sub 

Private Sub wordFindO 
On Error Resume Next 
Dim x% 

Dim lastPageNumber% 
Dim found% 
Dim lineFromFile$ 
Dim tempFindsS 
lastPageNumber% « 0 
temp$ - 

Open fileSource$ For Input As #1 
If Inputs (1, 1) - endOfPage$ Then 

pageNumber% » 0 
Else 

pageNumber% » 1 
End If 
Close #1 

Open fileSource$ For Input As #1 
Do Until EOF(l) 

Line Input #1, lineFromFile$ 

If InStr (lineFrcnFileS, endOfPage$) Then pageNumber% = pageNumber% + 1 
If InStrd, lineFromFile$, searchS, 1) Then 
If pageNumberfc <> iastPageNumber% Then 
lastPageNumber% - pageNumber% 
temp$ = temp$ £ pageNumber* & " M 
End If 
End If 
Loop 

Close #1 
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frmDepoView - 12 

tempFindsS « temp$ 

• determine the number of numbers in this string t^en redim an array 

• to hold each individual number 

If temp$ » Then Exit Sub 1 no match found 
found% - 0 

Do While Len(temp$) > 0 

found* = InStr (temp$, " ") 
If found% <> 0 Then 

foundcount% - foundcount% + 1 
temp$ - Mid$(temp$, (found% +1)) 
Else 

Exit Do 
End If 
Loop 

' now extract each page # and put them into into the Finds ( ) array 

' use Finds () array to bounce around from page to page 

ReDim finds ( foundcount% + 1) 

temp$ - tempFinds$ 

For x% - 1 To foundcount% 

found% = InStr(temp$, " ") 

finds(x%) = Int (Mid(temp$, 1, (found%))) 

temp$ « Mid$(temp$, (found* + 1)) 
Next x% 
f% - 1 
End Sub 
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frmlntro - 1 

Option Explicit 
Deflnt A-Z 

Private Sub displayText ( ) 
Font Size -42 

frmlntro.CurrentX ■» 32: frmlntro . CurrentY 
ForeColor » QBColor(S) 
Print "Deposition Viewer" 
frmlntro.CurrentX « 30: frmlntro. CurrentY 
ForeColor - QBColor(15) 
Print "Deposition Viewer" 
frmlntro.CurrentX - 31: frmlntro. CurrentY 
ForeColor « QBColor(7) 
Print "Deposition Viewer" 
i***************************** 

FontSize « 21 

frmlntro.CurrentX = 82: frmlntro. CurrentY 
ForeColor « QBColor(8) 
Print "Copyright 109S, Lui.^ Sper.cs'* 
frmlntro.CurrentX » 80: frmlntro. CurrentY 
ForeColor = QBColor{15) 
Print "Copyright 1996, Luke Spence" 
frmlntro.CurrentX » 81: frmlntro. CurrentY 
ForeColor - QBColor(7) 
Print "Copyright 1996, Luke Spence" 
End Sub 

Private Sub exitSpalshScreen ( ) 

frmDepoView, Show 

frmlntro. Hide 

Unload frmlntro 
End Sub 

Private Sub Form_Click() 

exitSpalshScreen 
End Sub 

Private Sub Form_KeyPress (KeyAscii As Integer) 

exitSpalshScreen 
End Sub 

Private Sub Form_Load ( ) 

frmlntro. Left « (Screen. Width - frmlntro .Width) / 2 
frmlntro. Top » (Screen. Height - frmlntro . Height ) / 2 
Load frmDepoView 

End Sub 

Private Sub Form_Paint() 

Call displayText 
End Sub 

Private Sub Timer l_Timer ( ) 

exi wSoalshScreen 
End Sub 



- 52 
= 50 

- 51 

= 302 
= 300 

- 301 
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Option Explicit 
Deflnt ?.-Z 
Dim sNewCase$ 

Private Sub cmdAdd_Click ( ) 

pctAddCase. Top « IstCases.Top 

pctAddCase.Left - IstCases . Left 

IstCases .Visible - False 

pctAddCase. Visible « True 
End Sub 

Private Sub cmdCancelNames^Click { ) 

IstCases. Visible - True 

pctAddCase. Visible - False 
End Sub 

Private Sub cmdOK_Click ( ) 

sNewCase$ - txtClient . Text & "/" £ txtMatter . Text 

IstCases . a.udltem sN*=.;;Case$ 

IstCases. Visible « True 

pctAddCase. Visible « False 
End Sub 

Private Sub Form_Load() 

frmCases. Left = (Screen. Width - frmCases .Width) / 2 
frmCases. Top « (Screen. Height - frmCases. Height) / 2 
Dim sCaseInput$ 
Dim sCaseName$ 
Dim sCasePath$ 
Dim sFileNameS 

sFileName$ - App.Path & "cases . inf" 
sFileName$ - "C:\vb30\cases.inf" 
Open sFileName$ For Input As #1 
Do Until EOF(l) 

Line Input $1, sCaseInput$ 

sCaseName$ » Mid$ (sCaseInput$, 1, InStr (sCaseInput$, "*") - 1) 
IstCases .Addltem sCaseName$ 
Loop 

Close #1 
End Sub 
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frmBrowse - 1 

Option Explicit 

Deflnt A-Z 

Dim sDirectoryPath$ 

Private Sub cmdCancel_Click { ) 

Call frmBrowseQuit" 
End Sub 

Private Sub cmdOK_Click ( ) 

•code to send back the selected directory name 

frmDepoView. Caption - sDirectoryPath$ 

Call frmBrowseQuit 
End Sub 

Private Sub Dirl_Change ( ) 

sDirectoryPath$ - dirl.Path 
End Sub 

.• Private Sub Drivel_ Change ( ) 
On Error Resume Next 
dirl.Path - Drivel. Drive 
End Sub 

Private Sub Form LoadO 

frmBrowse, Left - (Screen. Width - frmBrowse .Width) / 2 
frmBrowse. Top « (Screen. Height - frmBrowse . Height ) / 2 
dirl.Path - "V 

End Sub 

Private Sub frmBrowseQuit ( ) 

frmBrowse .Hide 

Unload frmBrowse 
End Sub 
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frmAbout - 1 

Option Explicit 
Deflnt A-Z 

Private Sub cmdOK_Click ( ) 

frmAbout . Hide 

Unload frmAbout 
End Sub 

Private Sub Form_ Load (J 

frmAbout. Left = (Screen .Width - frmAbout . Width) / 
frmAbout. Top - (Screen . Height - frmAbout . Height ) / 
ScaleMode = 3 

End Sub 
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Forml - 1 

• Copyriaht (C) 1995,1996, 1997 Tempest Software 

• Last modified on 05/02/97 

Option Explicit 
Deflnt A-Z 

Dim cancelButton% 
Dim totalFiles% 
Dim totalProcessed% 
Dim percentDone% 
Dim x% 

Dim numOfFiles% 
Dim fileToGetS 

Private Sub cmdCancel_Click ( ) 

cancelButton% - True 

Filel. Refresh 
End Sub 

Private Sub cmdClose_Click ( ) 

End 
End Sub 

Private Sub cmdPrint_Click() 
On Error GoTo printError 
Dim startPosi 
Dim endPos & 
Dim filePath$ 
Dim fileName$ 
Dim allFilesToPrint? 
Dim 1% 

Dim tiffPages* 
cancelButton% « False 
totalProcessed* - 0 
totalFiles* - 0 
startPos - 1 

If Filel . fileName - Then * If no file selected, display message & abort 

MsgBox "Please choose a file.", 0, "No file selected." 

Exit Sub 
End If 

If Right (Filel. Path, 1) - "V Then 

filePath - Filel. Path 
Else 

filePath « Filel. Path & H \" 
End If 

numOfFiles% « Filel .ListCount ' determine number of files for percent display 
For x% « 0 To numOf Files % - 1 
If Filel. Selected (x%) Then 

totalFiles% - totalFiles% + 1 

allFilesToPrint$ = allFilesToPrint$ & Filel. List (x) & " " 
End If 
Next x% 

Call buttonDisable 

w U.itii s»LartPoi> >•-- L*;. ^HFilesTorri'.-.tS) 

endPos « InStr (startPos, allFilesToPrint$, " ") 

fileName$ - Mid$ (allFilesToPrint$, startPosi, endPosi - startPos&J 

startPos « endPos + 1 

fileToGetS - filePath$ & fileName$ 

ImageManl . Picture - f ileToGetS 

tiff Pages* « ImageManl . Pages 

totalProcessed% - totalProcessed% + 1 

percentDone% - totalProcessed* / totalFiles% * 100 

lblDocsDor.c.Ccptior. • "Printing document " & totalProcessed% & " of " C tctciFiles* & '*. {" 
« percentDone% & "%)" 

Printer. Print "" 
Printer. Print "" 
Printer. FontBold «=• True 
Printer. FontSize = 50 
Printer. Print fileName$ 
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Forml - 2 

Printer. Print tiffPages 6 " page(s)" 

' Printer. Line (0, 0) - (Printer .ScaleWidth, C) 

Printer .NewPage 

For 1% - 0 To tiffPages% - 1 
Printer. Print 

Printer. ScaleMode - vbTwips 
ImageManl. PrnHdc » Printer. hDC 
ImageManl . DstLeft - 0 
ImageManl. DstTop - 0 

ImaaeManl.DstRight - Printer . ScaleWidth 
ImageManl. Dst Bottom - Printer . ScaleHeight 
ImageManl . PageNumber - 1% 
ImageManl. Refresh 

percentDone% = (1% + D / (tiffPages% + 1) * 100 

lblPagesDone. Caption - "Printing page " & 1% + 1 & " of " £ tiffPages% & (" & percentD 

one% & "%)" 

DoE vents 

ImageManl . Printlmage 

Printer. NewPage 

DoEvents 
Next 1% 

Printer. EndDoc 
DoEvents 

If cancelButton% - True Then 

cancelButton* - False 'reset the cancel button 

Call buttonEnable 

Filel. Refresh 

Printer. EndDoc 

Printer. KillDoc 

ImageManl. Picture - "'* 

•pnlPagesDone. FloodPercent » 0 ' reset the bar 
■pnlPercentDone. FloodPercent - 0 1 reset the bar 
lblDocsDone. Caption - 
lblPagesDone. Caption » 
Exit Do 
End If 
Loop 

ImageManl. Picture - 
•pnlPercentDone. FloodPercent = 0 
IblDocaiDone .Caption » w " 
IclPagesDone. Caption « " H 
Call buttonEnable 
Filel. Refresh 
Exit Sub 

Pr MsgBox°"Error fl " & Str (Err . Number ) & n was generated." & Chr(13) £ Err . Description, , "Error" 
, Err.HelpFile, Err . HelpContext 

Resume Next 
End Sub 



Private Sub Dirl_Change ( ) 
Filel. Path - Dirl.Path 
End Sub 

Private Sub Drivel_Change { ) 
On Error Resume Next 
Dirl.Path » Drivel. Drive 

End Sub 



Private Sub Form Load() 

Ke.Left « (Screen. Width - Me. Width) / 2 

Ke.Top - (Screen. Height - Me. Height) / 3 

On Error Resume Next 

cancelButton* - False 
End Sub 



-100- 



WO 98/18092 



PCTYUS97/18935 



Forinl - 3 



Public Sub buttonDisable 0 
Filel. Enabled - False 
Dirl. Enabled « False 
Drivel .Enabled - False 
cmdPrint .Enabled = False 
cmdClose. Enabled « False 

End Sub 

Public Sub buttonEnable (J 
Filel. Enabled - True 
Dirl. Enabled « True 
Drivel. Enabled = True 
cmdPrint . Enabled - True 
cmdClose. Enabled - True 

End Sub 
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Paper Chaser Table Structure 



Court Information 
Disk Names 
Document Info 
List of Privileges 
Preferences 
Report Names 
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Court Information 

Field Name 

Cause # 

Plaintiff 

Defendant 

Court 

County 

State 

Title of Pleading 



Data Type 


Length 


Text 


250 


Text 


250 


Text 


250 


Text 


250 


Text 


250 


Text 


250 


Text 


250 
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Disk Names 

Field Name Data Type Length 

DiskNamc Text 50 

DOCN1 Text ^0 

DOCN2 Text 50 
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Document Info 



Field Name 
Doc Number 
Entry Info 
Doc Date 
Beg Bates # 
End Bates # 
To 
From 
CCs 

Description 
Marked 
Offered 
Admitted 
Date 
Tagl 
Tag 2 
Tag 3 
Tag 4 
Tag5 
Tag 6 
Tag 7 
TagS 
Tag 9 
Tag 10 
Tagil 
Tag 12 



Data Type 

Text 

Text 

Date/Time 

Text 

Text 

Text 

Text 

Text 

Memo 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 



Tag 13 


Text 


Tag 14 


Text 


Tag 15 


Text 


Tag 16 


Text 


Tag 17 


Text 


Tag 18 


Text 


Tag 19 


Text 


Tag 20 


Text 


Tag 21 


Text 


Tag 22 


Text 


Tag 23 


Text 


Tag 24 


Text 


Produced 


Text 


Comments 


Memo 


Privilege Log 


Text 


Revised By 


Text 


Date Revised 


Date/Time 


Print 


Text 


Exhibit # 


Number 


Ext 


Text 


Order of Display 


Number 


Disposition 


Text 



Length 

9 
12 

20 

20 

250 

250 

250 

64,000 

2 

2 

2 

20 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
i 

64,000 

25 

3 

20 



Long Integer (-2,147,483,648 to 2,147,483,647) 

Long Integer (-2,147.4?3.64S to 2,147,4S3,647) 
20 



-105- 



WO 98/18092 



PCT/US97/18935 



List of Privileges 

Field Name Data Type Length 

Privileges Text 25 



-106- 



WO 98/18092 



PCT/US97/18935 



Preferences 

Field Name Data Type Length 

Case Name 

View Screen Message _ ^ 

50 
50 
50 
50 
50 
50 
50 
50 
50 
50 
50 
50 
50 
50 
50 
50 
50 
50 
50 
50 
50 
50 
50 
100 
luu 
IOC 



Field 1 


Text 


Field 2 


Text 


Field 3 


Text 


Field 4 


Text 


Field 5 


Text 


Field 6 


Text 


Field 7 


Text 


Field 8 


Text 


Field 9 


Text 


Field 10 


Text 


Field 11 


Text 


Field 12 


Text 


Field 13 


Text 


Field 14 


Text 


Field 15 


Text 


Field 16 


Text 


Field 17 


Text 


Field 18 


Text 


Field 19 


Text 


Field 20 


Text 


Field 21 


Text 


Field 22 


Text 


Field 23 


Text 


Field 24 


Text 


ImagePath 


Text 


IsysPath 


Text 


DbPathl 


Text 
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Report Names 

Field Name Data Type Length 

Report 1 Text 50 

Report 2 Text 50 

Report 3 Text 50 

Report 4 Text 50 

Report 5 Text 50 

Report 6 Text 50 

Report 7 Text 50 

Report 8 Text 50 

Report 9 Text 50 

Report 10 Text 50 

Report 1 1 Text 50 

Report 12 Text 50 

Report 13 Text 50 

Report 14 Text 50 

Report 15 Text 50 

Report 16 Text 50 

Report 17 Text 50 

Report 18 Text 50 

Report 19 Text 50 

Report 20 Text 50 

Report 21 Text 50 

Report 22 Text 50 

Report 24 Text 50 

Report 24 Text 50 
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i rmAut ornate * 1 

'Autt mated L-ocument Separator 
• Copyright (c) 1996, Luke Spence 
Option Explicit 
Deflnt A-Z 

Private Declare Function GetPixel Lib "GDI" (ByVal hDC As Integer, ByVal x As Integer, ByVal Y A 
s Integer) As Long 
Dim lColorfi 
Dim iX% 
Dim iY% 

Dim sFilenameS 

Dim iPageCount% 

Dim iCurrentPage% 

Dim iNewFilesFilenameS 

Dim iNewFilePageCount% 

Dim iNewFileCurrentPage% 

Dim sValidDividerS 

Dim iFileNumber% 

Dim sNewFilenameS 

Private Sub cmdFileOpen_ Click ( ) 
On Error GoTo errorLoad 
Dim iDocCount% 
iDocCount% « 0 

If txtDocNameNumber .Text = Then Exit Sub 
iFileNumber% = f rmAutomate . txtDocNameNumber , Text 
iCurrentPage% = 0 

f rmAutomate . cdlFilename . filename ■» "*.tif" 

f rmAutomate . cdlFilename. InitDir «= "c:\pictures\demo\" 

i rmAutomate. cdlFilename. Action - 1 

On Error Resume Next 

If f rmAutomate. cdlFilename « "*.tif" Then Exit Sub 
filel.Path « "c:\pictures\demo\" 
Filel .Visible « True 

f rmAutomate. TIFF. File » f rmAutomate . cdlFilename . filename 
Call pagesTotal 

f rmAutomate . lblNumOf Pages. Caption - "Number Of Pages: " & iPageCount* 
Do While iCurrentPage* < iPageCount% 
iCurrentPage% - iCurrentPage* + 1 

f rmAutomate. lblCurrent Page. Caption » "Current Page: '* £ iCurrentPage% 

Call imageDisplay 

Call examinePage 

Fi lei. Refresh 

DoEvents 

If sValidDividerS - "T M Then 

iFileNumber% «■ iFileNumber% + 1 

iDocCount% - iDocCount% + 1 
Else 

Call writeTIF 
End If 
Loop 

iDocCountfc « iDocCount% + 1 

'reset everything back to original status 

IblCurrentPage. Caption « "" 

IbiNumOf Pages .Caption ~ 

cxtDocNameNumber . Text « 

txtDocNamePref ix. Text » 

cmdFileOpe.n. Enabled » False 

f rmAutomate . TIFF. File « 

f rmAutomate . TIFF. Repaint « True 

XsgBox " " & iPageCount% " pages were separated into " & iDocCount% & " documents.", 0, "0 
ocument Separtion Complete." 

Exit Sub 
errorLoad: 

'reset everything back to original status 
lblCurrent Page. Caption = "'* 
lblNumOf Pages .Caption = 
txtDocNameNumber . Text = "" 
cxtDocNamePref ix . Text - "" 
cmdtileOpen . Enabled « False 
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frmAut ornate - 2 

frmAutoma'te. TIFF. File » BH 
frmAutomate. TIFF. Repaint - True 
Exit Sub 
End Sub 

Private Sub examinePage ( } 
Dim sColorCountS 
Dim iQuadrant% 
Dim iWidthSection% 
Dim iHeightSection% 
Dim i?ixelCheck% 
Dim iBlackCount% 
Dim iWhiteCount% 
Dim iLargeX% 
Dim iLargeY% 
Dim iSmallX% 
Dim iSmaim 

iWidthSection% - f rmAutomate . TIFF. BitmapWidth / 8 
iHeightSection% « frmAutomate.TIFF.3itmapHeight / 8 
frmAut ornate . TIFF. Visible - True 
frmAutomate.TIFF.BitmapDC - True 
For iQuadrant% « 1 To 4 

Select Case iQuadrant* 

Case 1 

iSmallX% « iWidthSection% * 1 
iSmaim - iHeightSection* * 1 
iLargeX% - iWidthSection% * 3 
iLargeY% - iHeightSection% * 3 
Case 2 

iSmallX* = iWidthSection* * 5 
iSmaim « iHeightSection% * 1 
iLargeX% « iWidthSection% * 7 
iLargeY* « iHeightSection% * 3 
Case 3 

iSmallX* - iWidthSection% * 1 
iSraallY* - iHeightSection% * 5 
iLargeX% » iWidthSection% * 3 
iLargeY% - iHeightSection% - 7 
Case 4 

iSmallX% - iWidthSection* * 5 
iSraallY* « iHeightSection% * 5 
iLargeX* = iWidthSection * * "7 
iLargeY* - iKeightSection* * 1 
End Select 

For i?ixelCheck% - 1 To 1000 

iX% - Int((iLargeX% - iSmallX% + 1) * Rnd + iSmallX*} 
iY% « Int ( (iLargeY* - iSmallY* + 1) * Rnd + iSmallY%) 
lColor& o Get?ixel(TIFF.BitmapDC, iX%, iY%) 
If lColori - 0 Then 

iBlackCount* - iBlackCount% + 1 
Else 

iWhiteCount% * iWhiteCount% + 1 
End If 
s-vf. vP^ x^lOhecfc* 
Select Case iQuadrant% 
Case 1, 4 

If iWhiteCount% > 100 Then 

frmAutomate.TIFF.BitmapDC - False 
sValidDividerS » "F" 
Exit Sub 
End If 
Case 2, 3 

If iBlackCount% > 100 Then 

frmAutomate.TIFF.BitmapDC = False 
sValidDivider$ - "F" 
Exit Sub 
End If 
End Select 
iBlackCount% - 0 
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frmAutomate - 3 

.iWhiteCount* - 0 
Next iQuadrant% 
svaiidDivider$ - "T" 
f rmAut ornate. TIFF. BitmapDC - False 
End Sub 

Private Sub Form_Load() 

f rmAutomate.ScaleWidth « 600 
frmAutomate. ScaleHeight » 450 

f rmAut ornate. Tcp - (Screen . Height - frmAutomate. Height) / 2 
f rmAut omate.Lef t « (Screen . Width - frmAutomate .Width) / 2 
lblCurrentPage. Caption - ,,M 
lblNumOfPages. Caption - 
Randomize 
End Sub 

Private Sub imageDisplay ( ) 

f rmAut ornate. TIFF. FiiePage « iCurrent Page% 

frmAutomate. TIFF. File - frmAutomate . cdlFilename . filename 

frmAuLomate.TIFF.I-iageWidth - frmAutomate . TIFF. Width 

frmAutomate. TIFF . IraageHeight ■ frmAutomate .TIFF. Height 

frmAutomate. TIFF. Repaint - True 
End Sub 

Private Sub pagesTotalt) 

frmAutomate. TIFF. InfoPage - 32767 

frmAutomate. TIFF. InfoFile - frmAutomate . cdlFilename . filename 
iPageCount% - TIFF. InfoPage 
End Sub 

Private Sub txtDocNameNumber_Change ( ) 

cmdFileOpen. Enabled - True 
End Sub 

Private Sub writeTIFO 

frmAutomate. TIFF. FiiePage - iCurrentPage% 
frmAutomate. TIFF. SaveMulti * True 

frmAutomate. TIFF. Save Format - LVB_FILE_CCITT_GROUP4 

frmAutomate. TIFF .SaveFile - txtDocNamePref ixTText & & iFileNumber% & M .tif" 

End Sub 
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frmAutomate - 1 
VERSION 5.00 

Begin VB.Form £ rmAutomate 



"MS Sans Serif" 
8.25 
0 

700 

0 ' False 
0 'False 
0 ' False 



Appearance 
AutoRedraw 
BackColor 
Caption 
ClientHeight 
ClientLeft 

ClientTop « 720 

ClientWidth - 6225 

BeginProperty Font 

Name 

Size 

Charset 

Weight 

Underline 

Italic 

Strikethrough 
EndProperty 

ForeColor - &HB0000008& 

Icon *" (Icon) 

LinkTopic - "Forml" 

MaxButton - 0 'False 

PaletteMode « 1 'UseZOrder 

ScaleHeight - 407 

ScaleMode - 3 'Pixel 

ScaleWidth - 415 

Begin VB. FileListBox Filel 

Appearance » 0 'Flat 

BackColor - &H008G8000& 

ForeColor = &H00FFFFFF6 

Height - 5880 

Left - 4560 

Tablndex = 8 

Top » 120 

Visible - 0 'False 

Width - 1455 

End 

Begin VB.TextBox txtDocNamePref ix 
Aopearance - 0 'Flat 

BackColor - &H00808000& 

Height - 235 

Left - 1800 

Tablndex - 5 

Top - 54 00 

Width - 615 

End 

Begin VB.TextBox txt Do cName Number 
Appearance «■ 0 'Flat 

BackColor « &H00808000& 

Height - 285 

Left - 1800 

Tablndex « 4 

Top - 5760 

Widen - 615 

End 

Begin V3 . PictureBox cdlFilename 
.Appearance - 0 'Flat 

BackColor - &H80000005& 

ForeColor - &H80000008& 

Height - 480 

Left 0 
ScaleHeight - 4 50 

ScaleWidth - 1170 

Tablndex - 9 

Top 83 2400 

Width « 1200 

End 

3egin V3 . PictureBox TIFF 



0 'Flat 
-1 'True 
&H00808000& 

"Automated Document Separator" 
6105 
1800 
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frraAutomate 



End 



Appearance 

BackColor 

ForeColor 

Height 

Left 

ScaleHeight 

ScaleWidth 

Tablndex 

Top 

Width 



0 .-'lat 

&H0OCOC0C06 

&HG000UUU&& 

4575 . 

240 

4545 

4065 

1 

600 
4095 



Begin VB.CommandButton cmdFileOpen 



Appearance 

Caption 

Enabled 

Height 

Left 

Tablndex 

Top 

Width 



0 ■ Flat 
"Open File" 
0 ' False 
375 
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CLAIMS 

WHAT IS CLAIMED IS: 

1. A method for interpreting a computer file including a plurality of pages, said method 
5 comprising: 

(a) selecting a portion of a page; 

(b) comparing said portion with a document separator template; and 

(c) identifying a predefined image in said computer file. 

2. The method of claim 1 wherein each page includes a plurality of pixel values and step (a) 
10 includes selecting a subset of the pixel values of a page. 

3. The method of claim 2 wherein step (b) includes comparing the pixel values of said subset 
with corresponding pixel values in said document separator template. 

4. The method of claim 3 wherein said document separator template includes a first area pixel 
of values and a second area of pixel values, wherein the first area pixel values comprise a different 

15 value than the second area pixel values. 

5. The method of claim 4 wherein step (c) includes determining whether the pixel values of 
said subset are substantially similar to the corresponding pixel values of said document separator 
template. 

6. The method of claim 5 further identifying a page in said computer file as a document 
20 separator page when said pixel values of said subset are substantially similar to the corresponding 

pixel values of said document separator template. 

7. A computer readable storage medium for storing an executable set of software instructions 
which, when inserted into a host computer system, is capable of controlling the operation of the 
host computer, said software instructions being operable to identify the existence of a predefined 

25 image in a computer file including a plurality of pages, said software instructions including: 
means for selecting a portion of a page; 

means for comparing said portion of a page with a document separator template; and 
means for identifying a predefined image in said computer file. 

8. The invention of claim 7 wherein each page includes a plurality of pixel values and said 
30 means for selecting a portion of a page includes a means for selecting a subset of the pixel values of 

said page. 

9. The invention of claim 8 wherein said means for comparing said portion of a page with a 
document separator template includes a means for comparing the pixel values of said subset with 
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corresponding pixel values in said document separator template. 

10, The invention of claim 9 wherein said document separator template includes a first area 
pixel values and a second area of pixel values, wherein the first area pixel values comprise a 
different value than the second area pixel values. 
5 11. The invention of claim 10 wherein said means for identifying a predefined image includes a 
means for determining whether the pixel values of said subset are substantially similar to the 
corresponding pixel values of said document separator template. 

12. The invention of claim 1 1 wherein said means for identifying a page in said computer file as 
a document separator page includes a means for identifying a page as a document separator page 

10 when said pixel values of said subset are substantially similar to the corresponding pixel values of 
said document separator template. 

13. A user-configurable document management system, comprising: 
a computer including a display and an input device; 

a scanner coupled to said computer; and 
IS a printer coupled to said computer, 

wherein said computer includes document management software including: 
an image viewer, 
a search engine; 
a briefing tool; 
20 a transcript viewer, and 

an installation module permitting a user to configure said software to include any 
desired image viewer, search engine, briefing tool, and transcript viewer. 

14. The document management system of claim 13 wherein said briefing tool is adapted to 
generate a window on said display that remains viewable in its entirety until terminated by user 

25 intervention. 

15. The document management system of claim 13 wherein said transcript viewer interprets 
transcript files in a variety of formats and automatically determines which format is associated each 
transcript file. 

16. The document management system of claim 15 wherein said transcript viewer further 
30 adapts each transcript file to be processed by said document management software. 

17. A method for installing software comprising a plurality of modules in a computer system, 
comprising: 

(a) recognizing the existence of installable modules; 
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(b) installing said installable modules. 
18. A method for generating a document database, comprising: 

(a) reading a look-up table; 

(b) scanning a document; and 

5 (c) storing said document in said document database at a location determined by said 

look-up table. 
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